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ABSTRACT 


The function of the DMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
cf the DMC11 are correct in its environment. 


Parameters must be set up to alert the diagnostics to the 

1l_ configuraticn. hese parameters are contained in the 
STATUS TABLE and are pee ed in two ways: 1) Manual 
Input - the operator answers questions. 2) Autosizing - the 
program determines the parameters automatically. 


DZDMG tests the DMCLI-AR and OMCLI-AL microprocessors 
(MB200-YA M™B8200-YB). It performs Aun tests on_ the 

micro-processcr and verifies the contro] ROM of the M8200. 

This lagnostic will not run cn a KMC (MB204), however it is 
ossible to load the KMC CRAM with the DMC micro-code. See 
est 2 for details. 


Currently there are five off line diagnostics that are to be 
run in sequence to insure that if an error should occur it 
will be detected at an early stage. 

NOTE: Additional diagnostics may be added in the future. 


The five diagnostics are: 


1. OZDMC [REV] Basic W/R and Micro-processor tests 

2. ODZDME [REV] DOCMP Line unit tests 

3. DOZDMF [REV] BITSTUFF Line unit tests 

4. DZDMG [REV] Jump and CROM tests 

S. DOZDMH [REV] Free-running tests (Heat test tape) 
RESUIREMENTS 

EGUIPMENT 

oes PDP11 family CPU (ercept an LSI-11) with minimum Sk memory 
ASR 33 (or e vilivalent) 


DMC11l=- (MBZOD-YR) or an DMCLI-AL (M8200-Y8) 
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STORAGE 


BOSPEtRaB' loMBér “reside. “Locettond 1886 Chru 1640; “contain 
the “STATUS TABLE information which is generated at start of 


piagneesios by manual input (questions) or asteuesiees ia 
(au ona teene?. This area is an overlay area and should not b 
eo 


altered by perator. 
LOADING PROCEEDURE 
METHOD 


ML proar ens are in absolute format and are loaded using the 
ABSOLUTE LOADER. TE: if the diagnostics are on a media such 
as DISK ,MAGTAPE,DECTAPE, or CASSETTE; follow instructions 
for the monitor which has been provided on that specific 


media. 

ABSOLUTE LOADER starting address #500 
MEMORY % SIZE 

4k 17 

8k 3? 

12k $7 

16k 77 

20k 117 

o4k 137 

28k 157 


Piace address of ABS loader into switch register. 
(alsc place ‘HALT’ SW up) 


Depress "LOAD ADDRESS’ key on conscle and release. 


Depress "START KEY’ on conscle and release (program should now 
be loading ints CPU) 
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STARTING PROCEEDURE 


a. Set switch register 000200 

b. Bepress *L AD key and rel 

c. Set SWR to zero for ’AUTO SIZING’ 
- (questions) or SWR bit7=1 t 
set up by a previous start or 
diagnostic. 

d. Depress "START KEY’ and release. The program will type 
Maindec Name and progres name (if this was the first start 
up of the program) and also the following: 


MAP OF DMC11 STATUS 


PC CSR STATI! STAT2 STAT3 


to 
YY ease 
or SWR bitO=1 for manual 
0 use existing parameters 
a previously run DMC11 


001500 160010 145310 177777 000000 
001510 160020 14$320 177777 000000 


The program will type ’R’ and proceed to run the diagnostic. 
The above is only an example. This would indicate the status 
table starting at add. 15b0 in the program. In this example 
the table contains the information and status of two DMC11°S. 

THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
fA DONE. For information of status table see section 8.4 for 
elp. 


If the diagnostic was started with SWOO=1 indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers: 


HOW MANY OMC1i°S TO BE TESTED?) 


01 
CSR ADDRESS? 160010 
VEC $7310 

PRIORITY LEVEL? (4.5.6,7)75 
MICRO-PROCESSOR HAVE GRAM? (Y OR_N)N 
LINE UNIT? IF NONE TYPE “N", IF M8201 TYPE “1", IF 
HE LOOP BACK CONNECTOR ON?Y 

P NE) 2377 

SWITCH PAC#e (BM873 BOOT ADD) 7377 


Following the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the questions. If the diagnostic was started with 
SWOO=0 and SWO7=0 (AUTO-SIZING) then no guestions are asked 
and only the status-map is printed out. tf AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware). if it does not match the hardware the 
Stapeest is must be restarted with SWOO=1 and the questions 
answered. 
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CONTROL SWITCH SETTINGS 


SW 1S Set: Halt on error 
SW 14 Set: Loop on current test 
SW 13 Set: Inhibit error print out 


SW 12 Set: Inhibit type out/abell on error. 

SW 11 Set: Inhibit iterations. (quick pass) 

SW 10 Set: Escape to next test on error 

SW O39 Set: Loop with current data 

SW O8 Set: Catch error and loop on it 

SW O7 Set: Use previous status table. 

SW O06 Set: Halt in ROMCLK routine before clocking 

se micro-processor 

SW OS Set: Reserved 

SW OY Set: Reserved 

SW O3 Set: Reselect OMC11’s desired active 

SW De Set: Lock on selected test 

SW Ol Set: Restart program at selected test 

SW OO Set: Build new status table from questions. (If SWO7=0 
and SWOO=0 a new status table is built by 


auto-sizing) 


Switch O& and O8-15 are dynamic and can be changed as needed 
while the diagnostic is running. Switches OO-O3 and switch 07 
are static, and are used only on starting cr restarting the 
diagnostic. 
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SWITCH REGISTER OPTIONS (at start up) 


RESTART PROGRAM AT SELECTED TEST. It is strongly 
suggested that at least one pass has been made before 
tr ae to select a test, the reason being is that the 
8 ram has to clear areas and set up parameters. 
hen this switch is used the diagnostic will ask TEST 

NO.? Answer by typing the number of the test desired 
[ae series return to Begin execution at the selected 
est. 


LOCK ON SELECTED TEST. This switch when used with 
SWO1 will cause the program to constantly loop on the 
selected test. Hitting any key on the Console will 
let it advance to the next test _and loop until a key 
is hit again. If SWOe=0 when SWOl is used. The 
program will begin at the selected test and continue 
normal operations. 


RESELECT DMC11’S DESIRED ACTIVE. Please note that a 
message is typed out for setting the switch register 
equal to DMC11"s active. this means if the system has 
four DMClls; bits 00,01,02,03 will be set in loc 
"DMACTV’ from the switch’ register. Using this 
switch(SWOO) alters that location;therefore if four 
DMClls are in the system *##D0 NOTHEX set switchs 
greater than SW 03 in the up position. this would be 
a fatal error. do not select more active DMClls_ than 
there is information on in the status table. 


A: Load address 200 

B: Start with SW OO0=1 

C: Program will type message 

8) Set a switch for each DMC desired active. 
EXAMPLE: If you have 4 DMC’s but ot want to 
run the first and the last set SWR bits 0 and 
3 = 1. PRESS CONTINUE 


E: Number (IF VALID) will be in data lights 
{excluding 11/05) 
F; with fou ether switch settings desired. 


Set 
PRESS CONTIAUE. 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


i. SW 12 Delete print out/bell on error. 

e. SW 13 Delete error printout. 

3. SW 15 Halt on the error. 

*. SW O08 Goto Sogieing of the test(on error). 
S. SW 10 Goto next tesf(on error). 


SCOPE SWITCHES 


1. SWO6 Halt in  ROMCLK routine before clocking 
microprocessor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 

* continue to resume running. 

2. SwWO9 (if enabled by *SCOP1’) on an error; If an °#* is 

pe tnnee in front of the test no. lez. ¥*TEST NO. 

QO ) SWOS is incorporated in that test and 
therefore SWOS is usually the best switch for the 
scope loop (SHi4=0, SWid=0, SWO9=1, SWO8=0). Ti 
S is not enabeled; and there is a HARD error 
(constant); SWO8 is best. (SW14=1,0, SwW10=0 
SWO9=0, =1). for intermittemt errors; Swi4=1 
wil] i on test reguardless of error or not 
error. (SW14Y=1, SW10=0, SWO9=0, SWO8=1,0) 

3. SW1l Inhibit interations. 

4. SW14 Loop on current test. 


STARTING ADDRESS 


Starting address is at O00200 there are no other starting 
addresses for the DMC11 diagnostics. (See Section 4.0) 


NOTE: If address OOOQ4Y2 is non-zero the program assumes it 
is under ACTI1 or XXDP control and will act 
accordingly after al] available DMC11’s are tested the 
program aif) return to *XXDP’ or ‘ACT-11". 


OPERATING PROCEDURE 
When program is jyitpetiy started messages as described in 


section 4.0 will be printed. and program will begin running 
the diagnostic 


HO 1 
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PROGRAM AND’OR OPERATOR ACTION 
The typical approach should be 


* Halt on error (via SW 15=1) when ever an error occurs. 
2. Clear SW 15. 

J. Set SW 14: (loop on this test) 

Q. Set SW 13: (inhibit error print out) 


The TEST NUMBER and PC will be peed out and possibily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem. If it is necessar 

to know more information concerning the error report; LOOK I 

THE LISTING for that TEST NUMBER which was types out and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED. 


ERRORS 


As described previously there will always be a TEST NUMBER and 

PC typed out at the time of an error Fh thee SW 13=0 and SW 

1e=0). in most cases additional information will be supplied 

i. the the error message to give the operator an indication of 
@ error. 


ERROR RECOVERY 


If for some reason the DMC11 should "HANG THE BUS’ (gain 
control of bus so that console manual functions are inhibited) 
an init or power down/up is necessary for cperator to regain 
contro] of cpu. If this should nopeses look in location 
“TSTNO’ (address 1226)for the number o the test that was 
running at the time of the catastrophic error. In this way 
the operator will have an idea as to what the DMC11 was doing 
at the time of the error. 


RESTRICTIONS 
STARTING RESTRICTIONS 


See section 4. (PLEASE) 

Status table should be verified reguardless of how program was 
started. Also it is important to use this shah ing along with 
sd {Or armasiee printed on the TTY to completly isolate 
problems. 
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OPERATING RESTRICTIONS 


The first di tic js loaded int d 

Ths Gipts ARLE ROSE Se!eToGeS Hsetst dont Ey‘ aatdl ss opat 

(SWOO=1) or by panaeneeee (SWOO=0 and SWO7=0). Thereafter 

coy pe the — i? need ont’, 28 oie by aepeoqurs® 
ause é 

cfAtac * TABLE’ ts ‘Soles he curr nt parameters in the 

STATUS TABLE are used when SWO7=1 on start up. 

HARDWARE CONFIGURATION RESTRICTIONS 


DMC11(MB200)- Jumper Wl must be in, and switch 7 of E76 must 
be in the OFF position. 


KMC(MB204)- Jumper Wl must be in. 
MISCELLANEOUS 
EXECUTION TIME 


All DMC11 device diagnostics will give an "END PASS’ message 
(providing no errors od puice ) within 4 mins. This is 
absuming GW11=1 (DELETE ITERATIONS) is set to give the fastest 
possible execution. The actual execution time depends greatly 


on the PDP11 CPU configuration and the amount of memory in the 
system. 


PASS COMPLETE 


NOTE: EVERY time the program is started; the te 
as_ if SW1l (delete iterations) was up (=1). This is to 
"VERIFY NO HARD ERRORS’ as soon as_ possible. Therefore the 
first pass -EACH TIME PROGRAM IS STARTED- will be a ’QUICK 
PASS’ until all DMC11’s in system are tested. When the 
diagnostic has completed a pass the following is an example of 
the print out to be expected. 


END PASS DZDMG CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: The pass count and error counts are cummulitive for 
each DMC11 that 1s running, and are set to zero only 
when the diagnostic is started. Therefore after an 
overnight run for eneapic the total passes and errors 
for each DMC11 since the jognesti¢ was started are 
reflected in PASSES: and RRORS:. 


sts will run 
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RETURN (1214) 


NEXT (1216) 


TSTNO (1226) 


RUN (1316) 


DMCROO-DMCR17 
DMSTOO-DMST17 
(1$00)-¢ 1640) 


DMACTY (1306) 


DMCSR (1404) 
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Contains the address where program will return 
when iteration count is reached or if loop on 
test is asserted. 


Contains the address of the next test to be 
peformed. 


Contains the number of the test now being 
peformed. 


The bit in *RUN’ always points to the OMC11 
current] being tested. XAMPLE: (RUN) 
1302/00000000010 0000 Means that DMC11 no.06 
is the DMC11 now running. 


These locations contain the information needed 
to test “ to 16 (decimal) DMClls sequentialy. 
they contain the CSR,VECTOR an STATOS 
concerning the configuration of each OMC11. 


Each bit set in this location indicates that 
the associated will be tested in turn. 
EXAMPLE: (DMACTV) 1276/0000000000011111 means 
that DMC11 no. 00,01,02,03,04 will be tested. 
EXAMPLE: (DMACTV)’ 1276/0000000000010001 Means 
that DMC11 no. 00,04 will be tested. 


+ wes the CSR of the current DMC11 under 
est. 


*STATUS TABLE’ (1500-1640) 
The table is filled by AUTO SIZING or by the manual parameter 
é s 


input Sqpett tone, as ; 
he locations may be altered by hand (toggled in) to 


user; 


scribed previou Aiso if desired by 


suit the specific configuration. 


The cpongi¢ stat 


two DMC 


us map shown below contains information for 
the table can contain up to 16 OMC11’S. 


Following the map is a description of the bits for each map 


entry 


PC 


MAP OF DMC11 STATUS 


CSR STAT! STAT2 STATI 


001500 160010 145310 177777 000000 
001510 160020 016320 900000 9000000 
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Each map entr conteipe. Py —o which contain the status 
information for . The PC shows where in core memor 

the first of the 4 mae A In the ges7rls above the firs 

DMC’S status if in locations, af elo 4 1504, and 1506. The 
second DMC status is located lo, 1512, 1514, and 15i6. 

be 2 information contained in each 4 word’ wiles is defined as 
ollows: 


CSR: Contains DMC11 CSR address 


STAT1: BITS OO-08 IS DMC11 VECTOR — 
BIT1S=1 ae PROCESSOR HAS CRA 


BR PRIORITY LEVEL 


l 

IS SWITCH PAC#1 (DOCMP LINE NUMBER) 
ITCH PAC#2 (BM873 BOOT ADD) 
F 


REE RUNNING TESTS ON KMC 
(LOW SPEED) 
(HIGH SPEED) 


STATe: 


STAT3: 
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METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


The auto-sizing routine finds a DMC11 as follows: It starts 
at address 1 and tests all address in increments of 10 up 
to and including address 167760. If the address does not time 
out, the so Lenten is done, the first CROM address is written 
to a 12S52S2 then it is read back. If it contains a -1 or 
125252 or 626 or 16520 a DMC11 or KMC11 has been found, if 
not, the address is updated by 10 and the search continues. A 
-1 indicates a DMC11 with no CROM, a 1eS2S2 indicates a KMC11 
h , @ 626 indicates a DMCLI-AL, and a 16520 indicates a 
11-AL. Further tests are performed at this point to 
determine which line unit, if any, is installed, if a 
loop-back connector is installed and various switch settings 
on the line unit. THIS IS WHY THE STATUS TABLE MUST 
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
THE QUESTIONS MUST BE ANSWERED. All DMC11’s in the system 
will be found by the auto-sizer. If it does not find a OMCI1 
the diagnostic must be restarted and the questions answered. 


FINDING THE VECTOR AND BR LEVEL 


The vector area (address 300-776) is filled with the 
instruction IOT and °.4+2’ (next address). The processor 
status is started at 7 and the DMC be grogcesnes to interrupt. 
The PS is lowered by 1 until the interrupts, a —e is 
made and if no interupt occures at PS level 3 (because of a 
bad DMC11) the program assumes vector address 300 at BR level 
S and the problem should be fixed in the diagnostic. Once the 
problem is fixed; the program should be ape again to get 
correct vector. If an interupt occured; the address to which 
the DMC11 interupted to is picked up and reported as the 
vector. NOTE: if the vector reported is not the vector set 
up by you; there is a problem and AUTO SIZING should not be 
one. 


SOFTWARE SWITCH REGISTER 


If the diagnostic is run om an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 
and it contains ali ones (177777) this software switch 
register is used. 


Control: 


To obtain control at any allowable time dyeing execution of 
the diagnostic the operator types a CTRL G on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed: 
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SWR=XXXXXX NEW? 


Where XXXXXX is the current contents of the software switch 
register in octal. The software control routine will then 
await operator action. At which time the agerater is required 
to type ong or_ more of the legal charge ers: 1) 0-7, 2) 
line {eeac<L >), 3) carriage return(<CR>), or 4) control-U 
(CTRL U). No check is made for legality. If the input 
character is not a <LF>, <CR>, or CTRL U it is assumed to be 
an octal digit. 


To change the contents of the SSR the egereter simp] tupes 
the new desired value in octal - leading zeros need not be 
typed. And terminates the input string with a <CR> or <LF> 
recente on the program action desired as described below. 
The input value will be truncated to the last 6 yb typed. 
At least one digit must be typed on any given nput string 
prior to the terminator before a change to the SSR will occur. 


When the input string is terminated with a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR. The <LF> differs from 
aoe (CR) by restarting the program as if it were restarted at 
address , 


If a CTRL U is me at any point in the input string prior to 
the terminator the _ ST will be disregarded and the 
prompt displayed (SWR = X NEW?). 


To set the SSR for the starting switches, first load the 
diagnostic, then hit CTRL G, then start the diagnostic. 
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MAINDEC-11-DZDMG-C _OMC11 CROM AND JUMP TESTS 
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SEERERRRRERERRERESERSEEEES TEST | SERREREREERERESARERE RELL EEE 
THIS IS A epee iA. TEST WHICH IS ONLY EXECUTED ONE TIME, 

THE FIRST PASS AF a ne ee IS LOADED. IT TYPES ON 
THE CONSOLE THE PAR T WIRBERS.OF THE CROMS WHICH THIS 
A wes TO — A TYPE OUT PATCH LOCATION 
ROMNUM : A ZERO. 


JEHHHHHHHHHHHHHHHHHHHHHHHHE TEST 2 EY ea pee 

THIS IS A SPECIAL Test * WILL_RUN ON A KMC (DNC WITH 
WRITTABLE CONTROL STORE) TO LOAD THE C CRAM WITH THE. DOCHP 
RiCRO-CObE, FIRST BE SURE "Ort OF STAT3 IS SET UP AS FOLLOWS 


=LOCAL O=REMOTE LOW ED CODE THE STATUS 
OF STATS "BYt1 DeTERNINeES WHICH STERDOG 
BE LOADED I LOOP ON THIS TEST FOR 4 FEW SECONDS 
TO LOAD Rae K Knee 


Test OF oR RIGHT SHIFT TEST 3 SHRRHERHSERESEES REE ERTL ES 


T OF BR RIGHT SHIFT 
VERIFY THAT A DEST OF BR RSH (011) OF A MICRO-INSTRUCTION 
SHIFTS THE RESULTING BR DATA RIGHT ONCE. 
SELLERARERERRREREHERERHEEE TEST 4 RRR SeRRRRERREERERERE SHALES S 
CROM READ TEST 
THIS TEST READS EACH ROM LOCATION AND va 
IT TO A SOFTWARE DUPLICATE OF THE CROM. THIS TEST 
ALSO TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUCTION. 
IF THIS TEST FAILS CHECK YOUR CROM PART NUMBERS. 
DZDMG-C SUPPORTS THE FOLLOWING PART NUMBERS: 


DMC11-AR_ _(MB8200-YA) 
23-414A9 


23-420A9 
23-421A9 
DMC 11-AL C 8200-8) 


11-JUL-77 12:14 PAGE Oe 
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1840 


1898 


2009 


2066 


2123 


2180 


2237 


2294 


2352 
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Sebdeiphdcddcbbdlddedehdbddsteidett MSOC Settee eee eet Dy 
TEST OF JUMP(T) Ne VER MICRO-PROCESSOR INSTRUCTION. 
JUMP INSTRUCTION 


ORM 
VERIFY THAT THE JUMP DID NOT OCCUR BY READING 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


JH HEHEHE TEST 6 ssssesbse SESE REET 
CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 


PERF ORM J NSTRUCTION 
VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SERRA RHARARSRARERARERAREESE TEST 7 RRR RRRERERSEREE SERRE RESETS 
CROM ih OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE C BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SELLLALARAEREELALAEREREEEE TEST 10 See RRR RE EERE ELLE EE EEE E 
CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
SET THE Z BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


JEHHHHHHHHHEHHHHHHHHHHHEEE TEST it ebb bbb bbb ddedabdebeddabebadebabeetatate! 
CROM TEST OF JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION. 
SET THE SRO BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 


JHHMHHHHHHEHE HEHEHE TEST 12 sss EE EERE EERE EE 
CROM_ TEST OF JUMP(I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BRI BIT, PERFORM THE JUMP I 

VERIFY THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 


LLELSASSSEEAESSERERERERHE TEST 13 RERRRRRRRRERHEAAE SERRE E EEE ES 
CROM TEST OF JUMP(I) ON BRY SET MICRO- mt INSTRUCTION. 
SET THE BRY BIT, PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


SELLERS ESEREREREREEESEL TEST 14 SHRRRRRRERERREREEE REESE RESTS 
CROM TEST OF ft ON oy SET MICRO-PROCESSOR INSTRUCTION. 
SET THE BR7 BIT, PERFORM JUMP I 

VERIFY THE JUMP’ BY READING THE CONTENTS OF THE NEW ROM PC 


RELEELEEEEEEEREEEEELEREEE TEST 15 FRRRRREREEEEERESRES EERE EERE 
CROM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR * C BIT, PERFORM THE JUMP INSTRUCTION, 


VE BY READI 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


LEALAAEERERESEEEEAEERERELE TEST 16 SEHR REREER AREER EEE EERE EE 
CROM TEST OF JUMP(I) ON Z BIT rl MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE Z BIT, PERFORM oe tee, INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
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RERLAAAAALERERRRRRERERERER TEST 17 See eee RR RRR EERE REESE EEE 
ao ys OF say Oe aie ste Pre teat ion INSTRUCTION. 
VERIFY T hat THE JUMP DID NOT OCCUR BY Y TREADING. ‘ 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
SRAERERLARRELRRRRREREREEEE TEST OD SERHHEEEHEEEREEEEESEE EEE EEE 
CROM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 
LEAR THE BR1 Bty enone THE Se oy es 


C 
VERIFY THAT THE DI READ 
THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


HEARKAKSELERHA RESALE RSRSRAEE TEST el RERRARAREARAARALALARRARKLAEEE 
CROM TEST OF JUMP(I) ON BR4Y SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR THE BR4Y BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


RELLELEARRAELAALLEEREERERE TEST CO RHRRERERERESESERERAER REE LER 
CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION. 
CLEAR at BIT PERE ORY THE JUMP May a ae 


THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 


cj 
o 
é 
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Li-JUL-77 lésli 


FOe 


; #MAINDEC~ 11-DZDMG-C 


;#COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., 


ara is 


PROGRAM A MILL a Fa Ye iaalaal 
WILL TYPE =R" TO INDICATE THAT TESTING HAS STARTED 
PROGRAM WILL TYPE PASS COMPLETE MESSAGE 


AT THE END OF A wee 


THEN RESUME T 


PAGE 2 
INTRODUCTION TO DMC11 DIAGNOSCTIC 


PAGE: 


DMC11 CROM AND JUMP TESTS 


MAYNARD, MASS. 01754 


NT ‘OMcL PARAMETERS 
DMC11 PARAMETERS 


DMC11 CROM AND JUMP TESTS” 


: AND S 
:SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


;SWITCH REGISTER OPTIONS 


ON ERROR 
OOP ON CURRENT TEST 
NHIBIT ERROR TYPEOUT = 
LETE TYPEOUT/BELL ON ERROR. 
NHIBIT. ITERATIONS 
SCAPE TO NEXT TEST ON ERROR 
OOP WITH CURRENT DAT 
9 RROR 


OP ON E 
E CURRENT DMC11 PARAMETERS, =0.AUTOSIZE DNC1! 
HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 


" " " " Te 
oe 
RoonZMzo 
SF 


;RESELECT DMC11"S TO BE TESTED ‘ACTIVE! 
:LOCK ON TEST SELECT Ka 
SRESTART PROGRAM AY SELECTED TEST 
INPUT DMC11 PARAMETERS 


0018 


G02 
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46 
43 :REGISTER DEFINITIONS 
50 , 
51 RO=%0 :GENERAL REGISTER 
Se oco001 R1l=%1 : GENERAL REGISTER 
53 Re=%e ; GENE GISTER 
os 000003 R3=%3 -GENERAL REGISTER 
Se R4=%4 “GENERAL REGISTER 
aS o0000s RS=45 ;GENERAL REGISTER 
S? 000006 SP=%6 :PROCESSOR STACK POINTER 
a 090097 PC=%7 ;PROGRAM COUNTER 
a LOCATION amen inna 
177776 PS=177776 :PROCESSOR STATUS WORD 

eS 001290 STACK=1200 :START OF PROCESSOR STACK 
Be ; INSTRUCTION DEFINITIONS 

é Se Ra 
fs 
BS oos746 PUSH1SP=S746 ;DECREMENT PROCESSOR STACK 1 WORD 
70 005726 POP1SP=S726 S INCREMENT PROCESSOR STACK 1 WORD 
71 010046 PUSHRO= 10046 ;SAVE RO ON 3 oe 
72 012606 POPRO=12600 sRESTORE RO FROM STACK 
rs D2446 PUSH2SP=24646  ;DECREMENT stick TWICE 
74 022626 POP2SP=22626 SINCREMENT STACK TWICE 
-EQUIV EMT,HLT :BASIC DEFINITION OF ERROR CALL 
a4 ;BIT DEFINITIONS 
73 . 
80 100000 B1T15=10000 
81 040 BIT14=40000 
82 020000 BIT13=20000 
83 010000 BIT1l2=10000 
oe 004000 BIT11=4000 
es 002 BIT10=2000 
ae 001000 BIT9=1000 
87 0004 BIT8=400 
oe 0002 BIT7=200 
89 000100 BIT6=100 
96 BITS=40 
91 000020 BIT4¥=20 
Se 00010 BIT3=10 
92 000004 BIT2=4 
4 000002 BITl=2 
3c oc0001 BITO=1 


HOe 
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9g 

16 ay REHKEESEESRERERE EERE RAE ELER AAR ER AE RRRARLA RAE SERA LALA LALA LEA SL ELE LALES 

101 ,  TRAPCATCAER FOR ILLEGAL INTERRUPTS 

102 THE STANDARD “TRAP CATCHER” IS. PLACED 

103 !BETWEEN ADORESS 0 TO RODRESS 7 

104 IT LOOKS LIKE “PC+2 HALT” 

is : + REE EEEEEEE REEL A AREER E SEERA REELS SER ALA LAA L ESAS EALAL AREAL L ALES SES 

198 ooo000 20 

109 : STANDARD INTERRUPT VECTORS 

lll > 

lle 000024 224 

113 000024 005336 PFAIL :POWER FAIL HANDLER 

114 900026 900340 340 ; SERVICE AT LEVEL 7 

11S 000030 004750 “HLT :ERROR HANDLER 

116 000032 000340 340 “SERVICE AT LEVEL 7 

117 000034 004716  TRPSRY GENERAL HANDLER DISPATCH SERVICE 

118 une 000340 340 :SERVICE AT LEVEL 

3a A Conn -— : SAVE FOR ACT-11 OR XXDP 

lel Maui Madan 5 "RETURN ADDRESS IF UNDER ACT-11 OR XXxDP 

le2 o00044 900000 9 “SAVE FOR ACT-11 OR XXDP 

123 O000% 003522 SENDAD :FOR USE WITH ACT-11 OR XXDP 

124 000052 252 

ies ooo0se 000000 0 sACT-11 PROGRAM CHARACTERISTICS 

127 000174 2174 

128 900174 900000 DISPREG:0 :SOFTWARE DISPLAY REGISTER 

129 009176 00000 SWREG: 0 : SOFTWARE SWITCH REGISTER 

131 000200 .=200 

132 o00200 000137 oso2002 IMP START :G0 TO START OF PROGRAM 

134 

13S 001000 .=1000 

136 001000 005377 O40S51S O47111 MTITLE: .ASCII (377><12> /“MAINDEC-11-DZDMG-C/<377> 

@) 001025 104 O41515 030461 "ASCIZ /DMC11 CROM AND JUMP TESTS/<377> 

,e) 

3? 001200 21200 

133 INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 

141 

14 1200 17 PLAY: 17757 

td5 SBISSe 155ec8 QI SPLAY: resp 


10e 
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144 

ise s INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 

14 . 

14 1204 177560 TKCSR: 177560 ; TELETYPE KEYBOARD CONTROL REGISTER 

14 1208 177562 TKDBR: 177562 ‘TELETYPE KEYBOARD DATA BUFFER 

150 001210 177564 TPCSR: 177564 :TELEPRINTER CONTROL REGISTER 

152 OOl2i2 177566 TPDBR: 177566 : TELEPRINTER DATA BUFFER 

153 ;PROGRAM CONTROL PARAMETERS 

155 ; 

156 001214 o00000 RETURN: 0 ;SCOPE ADDRESS FOR LOOP ON TEST 

157 001216 o00000 NEXT: 0 : ADDRESS OF NEXT TEST TO BE EXECUTED 

158 OO0le20 900000 LOCK: 0 ADDRESS FOR LOCK ON CURRENT 

159 O0l222 ICOUNT: 3 NUMBER OF ITERATIONS THAT CURRENT TEST WIL. BE 

160 o01224 LPCNT: 0 NUMBER OF ITEREATIONS COMPLETED 

161 OOle2¢6 o00000 STNO: 0 ‘NUMBER OF TEST IN PROGRESS 

162 001230 PASCNT: 0 ;NUMBER OF PASSES COMPLETED 

163 O012e32 900000 ERRCNT: O ‘TOTAL NUMBER OF ERRORS 

164 001234 900000 LSTERR: 0 PC OF LAST ERROR CALL 

166 ;PROGRAM VARIABLES 

168 F 

169 001236 STRTSW: O ;SWITCHES AT START OF PROGRAM 

170 001240 Stat: 0 ?DM STATUS WORD STORAGE 

171 001242 CLKX: 0 

172 001244 MASKX: 0 

173 001246 TEMP1: O ; TEMPORARY STORAGE 

174 og 1250 TEMP2: 0 TEMPORARY STORAGE 

17S O01 TEMPS: 0 TEMPORARY STORAGE 

176 001254 TEMPY: 0 : TEMPORARY STORAGE 

177 001256 TEMPS: 0 : TEMPORARY STORAGE 

178 001260 SAYRO: O :RO ST 

tad DOISed Savane, 0 Re STORACE 

181 001266 SAVR3: O RS 21 RAGE 

182 001270 SavRy: 0 RY STORAGE 

183 001272 SAVRS: O ?RS STORAGE 

184 001274 SAVSP: 0 :STACK POINTER STORAGE 

18S 001276 Savec: 0 PROGRAM COUNTER STORAGE 

186 001300 ZERO: 0 

187 001302 ONE : 1 

188 001304 MEMLIM: O ;HIGHEST LOCATION FOR NPR’S 

189 901305 DAACTY: -BLKM ! Seat AUR S SELECTED ACTIVE. 

191 ppt aie SAVACT: Bt KW ORIGINAL. cane "obvt bee? 

192 001314 SAVNUM: .BLKW 1 “WORKABLE NU 

133 001316 RUN: 0 : POINTER 10” RERING DEVICE. 

19S 001320 901472 CREAM: DM.MAP-6 : TABLE POINTER. 

19% 001322 001676 MILK: CNT.MAP-4 : TABLE POINTER 


JO0e 
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197 
13 — CONTROL FLAGS 
aT 00 ATION FLA 
1 DOO E is LAG 
oe ape BE RGR UAE ote 
wise luis ats aL : o K ON CURRENT TEST FLAG 
1 000 V.FLG: .BY 
20 nate E} ace Nae BPC e cH OMC1i ITERATIONS WILL BE 
207 
208 :DEFINITIONS FOR TRAP SUBROUTINE CALLS 
209 :POINTERS TO SUBROUTINES CAN BE FOUND 
510 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 
gis 5 SERRE 38 EE EEE EE EE EE EE EE EE EG ER EE a ok aH 
l Oe ee ee ee FL LL LE LE EE 
214 001330 * TRPTAB: 
215 104400 SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
si3 a Soeaot SCOP1 mai CALL TO LOOP ON CURRENT DATA HANDLER 
sta 001332 mien , bp . 
219 104402 TYPE=TRAP+2 :CALL TO TELETYPE OUTPUT ROUTINE 
220 001334 003766 . TYPE 
221 104403 INSTR=TRAP#3 | ;CALL TO ASCII STRING INPUT ROUTINE 
eee 001336 004050 
223 104404 INSTERTREPS4 ;CALL TO INPUT ERROR HANDLER 
224 001240 004154 . INSTER 
225 104405 PARAM=TRAP+5 :CALL TO NUMERICAL DATA INPUT ROUTINE 
226 001342 004174 
227 104406 SAvOSeTRAPSE ;CALL TO REGISTER SAVE ROUTINE 
228 001344 004374 Vv 
229 104407 RESOS=TRAP+7 ;CALL TO REGISTER RESTORE ROUTINE 
230 001346 004434 
231 104410 CONVRT=TRAB+10 :CALL TO DATA OUTPUT ROUTINE 
232 001350 oO4465 
233 104411 CHVRTSTRABS LL ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
234 001352 004472 .CNVRT 
235 104412 MSTCLR=TRAP+12 :CALL TO ISUE A MASTER CLEAR 
o36 001354 OpSH66 L 
441 DELAY=TRAP+1 ;CALL TO DELAY 
238 001356 005436 . DELAY 
239 104414 ROMCI. K=TRAP S14 | ;CALL TO CLOCK ROM ONCE 
40 001360 SO4 
41 104415 DATACLK=TR s15, ;CALL TO CLK DATA €. 
242 001362 o05552 . DATACLK 
243 104416 TIMER=TRAP+16 ;CALL TO DELAY A CLOCK TICK 
eid 001364 OOS&IE . TIMER 
BH eee nnn nanan nennennnennnnasennannanasaeassanssanasennanas 


247 Ss RRERAEE REE ER AREA ERALER ARAL RELEPA SAREE RARAEEAERAE RARER SARA ERR ERAT ATS 
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oo0000 
001460 


000001 
000001 
1534 00000! 

000001 


0000! 


000001 
000001 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
;0MC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


.=1500 

DM. MAP: 

DMCROO: .BLKW 
DMS100: .BLKW 
DMS200: .BLKW 
DMS300: .BLKW 
DMCRO1: .BLKW 
DMS101: .BLKW 
DMS201: ort 
DMS301: .BLKW 
DMCROe: .BLKW 
ats ow 
Bre s08; BLKW 
DMCRO3: .BLKW 
DMS103: .BLKW 
DMS203: .BLKW 
DMS303: .BLKW 
DMCROY: .BLKW 
DMS104: .BLKW 
DMS204: .BLKW 
DMS304: .BLKW 


ee me ee ae oe ee ees 


o— > > o— > —— -— oe — bp 


se wwmoemoeemeemom eee eee ewe eee ee ee eo toe eee eee eoeooeere= 


;POINTER TO DMC11 RECEIVER INTERRUPT VECTOR 

POINTER TO OMC11 RECEIVER INTERRUPT serv CE PS 
;POINTER TO DMC11 ITTER INTERRUP CTOR 
;POINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
;POINTER TO DMC11 CONTROL STATUS REGISTER 

;POINTER TO DMC11 CONTROL STATUS REGISTER HIGH BYTE. 
;POINTER TO DMC11 CONTOL OUT REGISTER 

;POINTER TO DMC11 PORT REGISTER(SEL 4) 

:POINTER TO DMC11 PORT REGISTER(SEL 6) 


;CONTROL STATUS REGISTER FOR DMC11 NUMBER 00 
sVECTOR FOR DMC11 NUM 00 
Coen TATE Woee FOR DMC11 NUMBER OC 


;CONTROL STATUS REGISTER FOR ONCi1 NUMBER Cl 
;VECTOR FOR DMC11 NUMBER O1 

:DDCMP LINE® FOR OMC11 NUMBER 01 

;3RD STATUS WORD 


sConTn. STATUS REGISTER FOR DMC11 NUMBER Ce 
erie rao eno 
ro 


5 CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
; VE TOR FOR Oat NUMBER 03 

;DDCMP_LINE® FOR DMC11 NUMBER 03 

:3RD STATUS WORD 


;CONTROL STATUS REGISTER - DMC11 NUMBER 04 
:VECTOR FOR DMC11 N 
:DOCMP_LINE® FOR onc re RUNBER oY 
:3RD STATUS WORD 


0023 


LOe 
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304 DMCROS: .BLKW 1 ; CONTROL STATUS REGISTER FOR DMC11 NUMBER OS 
305 DMS10S: .BLKW 1 ‘VECTOR FOR DMC11 NUMBER OS 
306 DMS205: .BLKW 1 :DOCMP LINE# FOR DMC11 NUMBER OS 
307 OMS30S: .BLKW 1 :3RD STATUS WORD 
309 RO&: .BLKW 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
310 DMS106 - BLK : VECTOR FOR ONCII HUNGER 06 oa 
31g KWo OSE TATUS WORD " 
314 DMCRO7: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
ate piekae: - Bt | i¥pc une MOEA UNGER 07 
317 OMS307: .BLKW 1 :3RD STATUS WORD 
319 DMCRIO: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 10 
320 DMS110: .BLKW 1 :VECTOR FOR DMC11 NUMBER 10 
321 DMS210: .BLKW 1 DOCMP LINES FOR tC NUMBER 10 
se 310: :BLKW 1 9R0 STATUS WORD 
324 DMCR11: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER 11 
325 OMSI11: .BLKW 1 “VECTOR FOR DMC11 
326 OMSell: .BLKW 1 :DDCMP LINE® FOR DMC11 NUMBER 11 
tl 311: .BLKW 1 ?3RD STATUS WORD 
329 DMCR12: .BLKW 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
330 lle: .BLKW 1 *VECTOR FOR DMC11 NUMBER Ie 
331 212: .BLKW 1 :DDCMP_LINE® FOR st NUMBER 12 
$36 OMS3le: .BLKW 1 39RD STATUS WORD 
334 OMCRI3: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMCi1 NUMBER 13 
335 001 000001 Dis 113: LKW VECTOR FOR ONC NUMBE 
DO1 000001 MS213: KWo ; DDOCMP 4 lds FOR DMC11 NUMBER 13 
337 001 000001 OMS313: .BLKW 1 :3RD STATUS WORD 
339 001640 000001 DOMCRI4: .BLKW 1 sCONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
340 001642 000001 QMS114: .BLKW 1 ?VECTOR FOR DMC11 R 
341 OO1644 000001 OMS214: .BLKW 1 : DDCMP LINES FOR DMC11 NUMBER 14 
aie 001646 000001 OMS314: .BLKW 1 :3RO STATUS WORD 
344 001650 000001 DMCRIS: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMC11 NUMBER !5 
35 001652 000001 OMS115: .BLKW 1 *VECTOR FOR DMC11 NUMBER 15 
001654 000001 DMS21S: .BLKW 1 :DDOCMP LINE® FOR DMC11 NUMBER 15 
347 1656 000001 OMS315: .BLKW 1 :3RD STATUS WORD 
349 001660 000001 DMCR16: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMCi1 NUMBER 16 
350 001662 000001 OMS116: .BLKW 1 :VECTOR FOR DMC11 R 
351 001664 00000! 16: .BLKW 1 sDOCHE LINES FOR DMC11 NUMBER 16 
356 1666 000001 OMS316: .BLKW 1 :3RD STATUS WORD 
354 001670 o00001 DMCRI7: .BLKW 1 ;CONTROL STATUS REGISTER FOR DMCL1 NUMBER 17 
355 001672 000001 DMS117: .BLKW 1 :VECTOR FOR OMC11 NUMBER 17 
356 001674 0O00001 OMS217: .BLKW 1 :DDOCMP LINES FOR. DMC11 NUMBER 17 
367 001676 O00001 DMS317: .BLKW 1 :3RD STATUS WORD 
353 001700 oo0000 DM.END: oco000 
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i) 
363 ; 
364 001702 CNT. MAP: 
365 001702 o00000 AcTOO: O 
seb 001704 900000 ERCTOO: O 
368 001706 o00000 PACTOL: O 
368 001710 00000 ERCTO1: O 
33 001712 00000 PACTO2: O 
37 001714 oo0000 ERCTOe: O 

PACTO3: 

en eee: 
377 001722 900000 PACTOY: O 
378 1724 900000 ERCTO4: O 
380 001726 900000 PACTOS: O 
381 001730 o00000 ERCTOS: O 
383 001732 o00000 PACTOB: 
384 001734 900000 ERCTOE: 
386 001726 o00000 PACTO?: O 
387 001740 900000 ERCTO?: G 
389 001742 o00000 PACTIO: O 
330 001744 ERCTIO: O 
392 001746 oo0000 PACTI1: O 
333 001750 ERCT11: O 
39S 001752 oo0000 PACT12: O 
336 001754 90c000 ERCTl2: 0 
398 001756 coD000 PACTI3: O 
333 001760 900000 ERCT13: O 
401 001762 oO00000 PACTIY: O 
192 001764 900000 ERCTLY: O 
404 001766 000000 PACTIS: O 
105 001770 ERCTIS: O 
407 001772 oDc000 PACTI6: 0 
408 901774 009000 ERCT16: O 
410 001776 ooD000 PACTI7: O 
411 002000 900000 ERCTI7: O 
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;DMC11 PASS COUNT AND ERROR COUNT TABLE 


;PASS COUNT FOR DMC11 NUMBER 00 
ERROR COUNT FOR DMC11 NUMBER OO 
1 


;PASS COUNT FOR DMC11 NUMBER O1 
ERROR COUNT FOR OMC11 NUMBER O1 


;PASS COUNT FOR DMC11 NUMBER Oe 
ERROR COUNT FOR DMC11 NUMBER 02 


PRR SR COUNT FOR-DMGL1 NUMBER 03 


;PASS COUNT FOR DMC11 NUMBER 04 
“ERROR COUNT FOR DMC11 NUMBER O4 


;PASS COUNT FOR DMC11 NUMBER OS 
ERROR COUNT FOR DMC11 NUMBER OS 


;PASS COUNT FOR DMC11 NUMBER 06 
:ERROR COUNT FOR DMC11 NUMBER O06 


;PASS COUNT FOR DMC11 NUMBER 07 
;ERROR COUNT FOR DMC11 NUMBER 07 


;PASS COUNT FOR DMC11 NUMBER 10 
;ERROR COUNT FOR DMC11 NUMBER 10 


;PASS COUNT FOR DMC11 NUMBER 11 
:ERROR COUNT FOR DMC11 NUMBER 11 


;PASS COUNT FOR DMC11 NUMBER 12 
ERROR COUNT FOR DMC11 NUMBER 12 


1 
1 
1 
;PASS COUNT FOR DMC11 NUMBER 13 
ERROR COUNT FOR DMC11 NUMBER 13 
1 
1 
1 
1 


;PASS COUNT FOR DMC11 NUMBER 14 
;ERROR COUNT FOR DMC11 NUMBER 14 


;PASS COUNT FOR DMC11 NUMBER 15 
ERROR COUNT FOR OMC11 NUMBER 15 


;PASS COUNT FOR DMC11 NUMBER 16 
ERROR COUNT FOR DMC11 NUMBER 16 


;PASS COUNT FOR DMC11 NUMBER 17 
:ERROR COUNT FOR DMC11 NUMBER 17 


PAGE: 


0025 


NOe 
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413 


FORMAT OF STATUS TABLE 


15 14 13 12 11 10 O09 O8 O7 0&8 OS OY O3 C2 O1 OO 


I I 
iP el ok iy ott tel hE tack teal at tak Cine 


STATI 


I I I 
,e 9% lial salt tak tel nck taal tak te *) = 


I IT#eI #I STAT3 
S wt ee 


CSR: CONTAINS DMC11 CSR ADDRESS 


STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT1S=1 MICRO-PROCESSOR HAS CRAM 
BIT15=0 MICRO-PROCESSOR HAS CROM 
BIT14=1 2??? TURNAROUND CONNECTOR IS ON 
BIT14=0 NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS AN 
BIT13=1 LINE UNIT IS 
BITle=1 NO LINE UNIT 
BITS 09-11 IS OMC11 BR PRIORITY LEVEL 
STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#e (BM873 BOOT ADD) 
STAT3: BITO=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY [PROGRAM DZDMI ONLY]) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
DZOMG TEST 2 FIRST é 
BITI=1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 
BIT1=0 OMC11-AR REMOTE LOW SPEED MICRO-CODE 


B03 
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Hee ate INIT IZATION 


iL DEX GU 
asa STAR, 


CLEAR RY PROGRAM CONTROL FLAGS AND COUNTS 
ste TITLE MESSAGE 


o02002 012737 000340 177776 START: MOV #340, PS sLOCK OUT INTERRUPTS 
002010 012706 001200 MOV sSTACK, SP :SET UP STACK 
002014 012737 005336 4 MOV 8.PFAIL. o8e4 § ;SET UP POWER E FAIL VECTOR 
002022 013737 001310 001314 MOV DMNUM,SAVNUM § ;SAVE NUMBER OF DEVICES IN SYSTEM. 
002030 010016 CLR SWFLG ‘CLEAR SOFT TYPEOUT FLAG 
002034 105037 001325 CLRB LG CLEAR ERROR FLAG. 
002040 105037 001327 CLRB =s- QV. FLG *ZERO QUICK VERIFY FLAG 
002044 012737 001470 001320 MOV 80M. MAP-10,CREAM:GET MAP POINTER. 
O020S2 012737 001676 0013e2 MOV BCNT. MAP-4' MILK GET PASS COUNT HAP POIN TER 
002060 012737 100000 001316 MOV #81715, RUN “POINT POINTER TO FIRST DEVICE. 
002065 012700 001702 MOV SCNT. MAP, RO “PASS COUNT POINTER TO RO 
002072 O0S020 238: CLR (RO)+ *CLEAR TABLE 
002074 022700 onz00e CMP 8CNT.MAP+100,RO0 :DONE YET? 
002100 001374 2 KEEP GOING 
002102 001234 CLR LSTERR ‘CLEAR LAST ERROR POINTER 
002106 012737 000001 001226 MOV #1, TSTNO :SET UP FOR TEST 1 
002114 012737 OO2002 001214 MOV 8. START, RETURN SET UP FOR POWER FAIL BEFORE 
002122 013746 O00006 V 386, -(SP) ;SAVE CURRENT VECTORS 
002126 013746 000004 MOV aay’ -(5P 
002132 012737 002166 o00004 MOV 86$/ 384 ‘SET UP FOR TIMEOUT 
002140 012737 177570 OOl202 MOV #177570, SWR SET SWR TO HARD SWR ADDRESS 
002146 012737 177570 001200 MOV 8177870 DISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
002154 022777 177777 177020 CMP 8-1, ISWR ; REFERENCE HARDWARE SWITCH REGISTER 
500 O02lb2 001402 BEQ 6$+2 ‘1 1 USE SOFT SWR ANYWAY 
002164 000407 BR 7§ tIF IT Exists AND NOT = -1 USE HARD SkR 
S02 002166 O22626 6S: CMP (SP)+. (SP)+ :ADJUST STACK 
503 002170 012737 000176 001202 MOV aSWREG, SWR ‘POINTER TO SOFT SWR 
S04 002176 012737 000174 001200 MOV SDISPREG, DISPLAY:POINTER TO SOFT DISPLAY REG 
50S 002204 012637 900004 7S: (SP)+, 84 ; RESTORE VECTORS 
S06 002210 012637 000006 (SP)+’ dab 
507 002214 105737 001324 TSTB  —sCINIFLG HAS INITIALIZATION BEEN PERFORMED 
508 001006 B YES 
509 002222 37 003S22 o0004e CMP 8SENDAD, a842 VIF ACT-11 AUTOMATIC MODE, DON’T TYPE ID 
Si0 002230 001402 BEQ O$ 
S11 OO2232 104402 001000 TYPE MTITLE TYPE TITLE MESSAGE 
Si2 002236 004 007606 20S: JSR Pc CKSWR : CHECK T SWR 
513 002242 017737 176734 001236 MOV aSuR, STRTSW ‘STORE STARTING SWITCHES 
514 002250 005737 oo0042 TST asd :IS IT RUNNING IN AUTO MODE? 
515 002254 001 BEQ ; :BR IF NO 
516 002256 001236 CLR STRTSW ‘IF YES. CLEAR SWITCHES 
E17 OOeebe 0327 1 001236 BIT BSWOO,STRTSW  :IF SWOO=1. QUESTIONS ARE ASKED. 
518 002270 001012 BNE 7§ BR IF SWOO=1 
519 002272 105737 001236 TSTB = STRTSW :BIT?=1?? 
520 O0e276 1 SPL 17 :BR IF SWO7=0 
S21 002300 005737 001306 TST OMACTY ‘ARE ANY DEVICES SELECTED? 
S22 002304 06100 . BNE 16$ :BR IF YES 
523 002306 104402 007154 TYPE,  NOACT !NO DEVICES SELECTED. 


C03 
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252 assis Hee 2 Rat aLieY “CON ONTINUE SWITCH 
526 316 arp 010512 178: BR PC AUTO.SIZE 360 HE AUTO S 3 
527 322 105737 001324 168:  TSTB  INTFLG “FIRST TIME? 
S28 000326 001410 BEQ ‘BR IF YES 
529 002330 1 001236 TSTB = STRTSW :IF USING SAME PARAMETERS DONT TYPE MAP 
530 002334 100431 1$ 
531 00033 032737 OO0006 001236 BIT SBIT1!B1T2,STRTSW:IS TEST NO. OR LOCK SELECTED 
S32 002344 001403 BEQ 24g tf NO THEN TYPE STATUS 
533 000424 BR 1$ IF YES DO NOT TYPE STATUS 
534 002350 005137 001324 21$: COM INIFLG iSeT FLAG 
53S 000354 104402 O0062c4 24$: TYPE XHEAD : 
536 002360 012704 001500 MOV kOM. MAP, R4 ‘SET POINTER 
537 0020364 010437 001246 cs: MOV R4, TEMP! : SET SS 
538 002370 012437 001250 MOV (R4)+, TEMP2 . 
539 002374 OO1411 BEQ 1$ “ALL DONE IF ZERO 
540 002376 012437 o01252 MOV (RY) +, TEMPS :SET STATI 
541 O0e%02 0120437 001254 MOV (RY) +) TEMPY SET STAT 
S42 000406 010437 001256 MOV (RY) +) TEMPS :SET STATS 
543 O0e412 104410 CONVRT ‘TYPE OUT STATUS MAP 
S44 000414 007454 XSTATO : 
545 000416 000762 BR S$ 
ue 002420 012700 001500 1S: MOV 80M. MAP, RO RO POINTS TO STATUS TABLE 
c4g ; ; + EEESERGLELEEG EERE LEGER RASA R REESE EEE EASE AR ERA EE RRLE SS RER LSE REE 
549 ::#AUTO SIZE TEST 
550 ¥THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
csi  Renomesees FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
oS2 2 #CHECK THE ADDRESSES OF ALL FLOATING DEVICES (6J, 0H, 00 bu, DUP LK LK,OMC,DZ,KMC). 
o53 t:#IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THe baci.’ THE’ FIRST 
SS4 ;;#0MC11 ADDRESS IS 760070, KMC11_ 15 760110. NO DEVICE SHOULD EVER BE AT 
css i ss . THIS TEST MAY REQUIRE 2 OR NRORE ATTEMPTS TO GET THE 
a4 t HARIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADORESS TO WHAT IT TOLD 
557 :*YOU THE FIRST TIME, IT MAY COME BACK AND TELL You A DIFFERENT ADDRESS 
t:} Hi xTHe NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
g58 i, #WILL BE CORRECT ( (AS LONG AS ALL DEVICES IN SRDAT OF THE DMC’S ARE 
ees ii ° SESEEEEEEREEERERERELE REELS LEER SEER EERE EERE EERE EE EE EASES SLSR ELE REE 
S63 002424 013746 OO0004 MOV a84,-(SP) ;SAVE LOC 4 
S64 002430 013746 O00006 MOV 386, -(SP) :SAVE LOC 6 
565 0020434 005037 O00006 CLR 386 CLEAR VEC+2 
S66 O0e440 005037 601252 CLR TEMPS CLEAR FLAG 
567 002444 005005 CLR RS *RS=0=0MC, RS=-1= 
S68 0020446 011037 001404 AUSTRT: MOV (RO), DMCSR ‘GET NEXT DMC CSR 
569 O02e4Se 001564 BEQ AUDONE BR IF DONE 
570 o024S4 705 TST RS :DMC_OR KMC? 
571 O0e456 001005 BNE 1$ :BR IF KMC 
572 O0e%60 60 100000 op0002 BIT #B1T15,2(RO) | ;CHECK FOR DMC CSR 
573 O02%6 001061 BNE SKIP ‘SKIP IF NOT 
574 00e470 4 BR 2g ‘ITS A DMC SO CONTINUE 
575 O0e47¢ 60 100000 oD000e 13: BIT BBIT1S,2(RO) | ;CHECK FOR KMC CSR 
576 O02SO00 001454 BEQ KIP ‘SKIP IF NOT 
577 002502 012737 002674 O00004 2S: MOV #NODEV, 284 SET UP FOR TIMEOUT 
£78 002510 005705 TST RS :DMC OR KMC? 
573 002512 001003 BNE 33 BR IF KMC 
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PROGRAM INITIALIZATION AND START UP. 


3$: 
4§: 


FLOAT: 


FY: 


1$: 
2s: 


SKIP: 


OK: 


NODEV: 


ERR: 


1$: 


MOV 


#6,R3 

4§ 

#10,R3 
8DEVTAB, R2 
#160010;R1 
(R1) 

(R2) RY 
RY, RI 

Ri 

R4,R1 

R3° 

FLOAT 


#ERR, 84 
RI, XLOC 
RS” 


1$ 
8B1T15,2(RO) 
SKIP 


es 
#81T1S,2(RO) 
SKIP 


(R1) 
R1 ,OMCSR 


#10,R1 
FY 
#10,R0 

(RO), OMCSR 
AUDONE 
FY 

10,R0 

810. XLOC 
(ROS, OMCSR 
AUDONE 
XLOC, Rl 
FY 
(R2)+,-(R3) 


TEMP3 
1$ 


BERR, SAVPC 
#-1, TEMP3 
R1,SAVRI 
RS 

33 

4g 


ita IS COUNT OF DEVICES BEFORE DMC 
S COUNT OF pS Saree KMC 
H ee 80010 


S INR 
ii wy TIMEOUT, GET NEXT ADDRESS 


;ANY HORE DEVICES TO CHECK FOR? 
:0K ONLY OMC’S ARE LEFT, SET UP FOR TINECUT 
;SAVE FIRST DMC/KMC ADDRESS 


;DOES IT_ MATCH 
IF YES 
NEXT DMC ADDRESS 
T_AGAIN 
0 wa CSR IN TABLE 


saeoRe 


BRE LM 
seo 
ae 


T_OMC CSR 
HUPORTE TE EXPECTED ORC Kn ADDRESS 


‘BR IF DONE 
: sGET EXPECTED DMC/KMC ADDRESS 
!ON TIMEOUT, INC R2, DEC R3 
;RETURN 

CHECK FLAG IF = 0 TYPE HEADER 
SKIP HEADER 

; TYPEOUT HE G 

; CONF IGURATI 


; TYPE OUT ERROR PC 
: TYPE REST OF HEADER 


{SET FLAG SO IT oY GETS TYPED 
:SAVE R1 FOR TYPEOUT 


;TYPE CSR VALUES 
;0MC_OR KMC ” 
;BR IF KMC 


ONCE 


; CONTINUE 


0029 
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03 
003156 


012706 
013746 


002 


176104 
006005 
176064 
001306 
000399 
000302 


001000 
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3$ TYPE 
KMCM 
4§: CMP (SP)+, (SP)+ 
BR OK 
ERRPC: 1 
.BYTE 6,2 
SAVPC 
CONTAB: 2 
-BYTE 6,4 
XLOC 
BYTE 6,2 
DMCSR 
DEVTAB: .BYTE 7 
“BYTE 17 
"BYTE 7? 
“BYTE 7? 
“BYTE 7 
"BYTE 7 
“BYTE 7 
"BYTE 7? 
BYTE 7 
EVEN 
XLOC: 0 
AUD TST RS 
BNE 1$ 
MOV #-1,R5 
MOV #0M; MAP , RO 
BR AUSTRT 
1$: MOV (SP)+, 086 
MOV (5P)+"a84 
BIT #SW03, STRTSW 
BEQ 3$ 
TYPE MNEW 
CLR RO 
HALT 
CMP ISWR, SAVACT 
BLOS $ 
TYPE ,MERR3 
HALT 
BR -2 
2S: MOV JSWR, OMACTY 
MOV omacty,RO 
HAL T 
38: MOV #300. RO 
MOV 
ug: MOV Rt 104 
CLR (RI) 
CMP (RO) +, (R1)+ 
CMP #1000; RO 
BNE 
TEST START AND RESTART 
-BEGIN: MOV aSTACK, SP 
MOY deb, -( SP) 


E03 


——— ee ee _—- « 


PAGE : 


;ADJUST STACK 
;BR TO GET OUT 


;DMC? 

;BR_IF KMC ae, Gul, DONE 
‘SET RS“ TO -1 

: RESET RO TO START OF TABLE 
GO DO KMC’S 
;RESTORE Le § 


RESTORE L 
ape grec DEVICES?” 


THE MESSAGE 
:ZERO DATA LIGHTS 
;WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
THE NUMBER VALID? 


;BR IF NUMBER IS OK. 
TELL USER OF —— NUMBER. 


STOP EVERY TH 

;RESTART THE IN. 
;GET NEW DEVICE PATT 

; SHOW T HE SELECTED 
; CONTI ey SWITCHES. 
;PRE AR THE FLOATING 
VECTOR AREA. -77 

START PUTTING "PC+2 - HALT 
IN VECTOR AREA. 

: POP POINTERS 

ALL _DONE?? 

:BR IF NO. 


;SET UP STACK 
;SAVE LOC & 


0030 


FOS 
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692 003162 013746 000004 MOV ae4, -(SP) ;SAVE LOC 4 
Soy peaiSe buezae o00004 ay CSS ge aOR FOR TIME OUT 
Bae Baatse BEG? Boobee eR GR +E alrostoe MEMORY 
EI 005720 6S: TST (RO)+ ‘CHECK ADDRESS IN RO 
697 003204 022700 157776 CMP #157776,RO -IS IT AT LEAST 28K 
bes boss 0 ts me ae 
iS ioe Bae rs: yee engin 
oe 48 19034 ied MOV ReAyer STORE NENOR 
798 003226 012637 000006 HOV (SP), oe :RESTORE ae 
704 pe3s3¢ poe 42 2s: CMP 1B8 +, (SP)+ OUST STACK 
70S 003236 162700 oo0004 SUB #4,R0’ :GET LAST GOOD ADDRESS 
706 003242 162700 007776 SUB «#7776, RO ;SAVE 2K FOR MONITORS 
707 003246 030000 CMP #30000 , RO ‘IS IT 8k? 
708 003252 9001361 BNE ? ‘BR IF NO 
709 003254 012700 037400 MOV #37400, RO ; IF 8K DON’T SAVE 2k 
710 003260 000756 BR 7$ 
711 003262 012737 000340 177776 10$: MOV #340,PS LOCK OUT INTERRUPTS 
712 003270 032737 OO00004 001236 BIT #BIT2,STRTSW  ;CHECK FOR LOCK ON TEST 
713 003276 O01411 BEQ 1$ :BR F NO LOCK SIRED. 
714 006043 TYPE MLOCK :TYPE LOCK SELECTED. 
715 003304 012737 000240 003612 MOV NOP, TTST ‘ADJUST SCOPE ROUTINE 
716 903312 012737 O00240 003614 MOV sNOP; TTST+2 :SET UP TO 
717 003320 BR 3$ ; CONTINUE ALONG. 
718 003322 013737 003730 003612 18: MOV BRW, TTST SCOPE ROUTINE 
719 003330 013737 003732 003614 MOV BRX’ TTST+2 :LOCK NOT SELECTED, SET UF FOR NORMAL SORE LOOP 
720 003336 012737 O10060 001214 3S: MOV acYCLE. RETURN START AT “CYCLE” FIND WH WHICH DEVICE TO TEST 
721 003344 032737 000002 001236 4g: BIT wSWO1,STRTSW 31S TEST NO. SELECTED 
722 903352 001002 BNE S$ :BR IF YES 
723 003354 104402 905755 TYPE MR Y 
724 993360 800177 175630 S$: IMP SRETURN START TESTING 


———-—— = meee aes = — were +++ 
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010060 
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END OF pass ROUTINE 


. EOP: 


SENDAD: 


RESTRT: 


XCSR: 


XVEC: 


XPASS: 


XERR: 


. SCOPE: 


GO3 


GB. PAS 


;UPDATE PASS COUN 
CHECK FOR BgxIT 70 ACT-11 


RESET 
C 


.BYTE 
ERRCNT 


ASCNT 
PASCNT, ADISPLAY 
,MEPASS 


AIL 

PAECHT. (RO)+ 
ERRCNT. (RO)+ 
SAVNUM’ 


Rect RT 


PC, (Rl) 


sCYCLE, RETURN 
CYCLE 


6,2 


PAGE: 


AKE THE WORLD CLEAN AGAIN. 
‘CLEAR LAST ERROR PC 


AR FLAG 
 UPDAT E PASS COUNT 
yeas PASS COUNT 

ENO PASS 

Ba 
5 TYPE yer OR 

*SHOW I 
: TYPE PASSES 
: SHOW IT 
; TYPE ERRORS 
iGET POINTER TO PASS COUNT 

R 
ARE ALL DEVICES TESTED? 
:BR NO. 
SET THE QUICK VERIFY FLAG. 
THE COUNT 

: CHECK FOR ACT-11 OR DOP 


!IF NOT, CONTINUE TESTING 
:STOP THE SHOW--CLEAR THE WORLD 


;SCOPE LOOP AND INTERATION HANDLER 


JSR 
MOV 


PC, CKSWR 
RO; (SP) 


;CKECK FOR SOFT SWR 
;SAVE RO ON THE STACK 


0032 


HO3 
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oRh nak 96: RaF65 —— oon TTST: RE — igROCE RO THEE K SWOL= 1; THIS LOC =249) 


78) RBI BONE oa ray ibe , Fan pide. AB SMOIELi THIS Loc 20, 
78S 003622 


001434 nena BEG 38 BR IFN NO (LOCKED ON TEST) 
785 BBaPs Bhoais GRR OR ig to hex! 
788 003632 032777 OO4000 175342 1$: BIT aSH1 1, 2SHR sDELETE ITERATION? (QUICK PASS) 
583 poe 082014 001327 at 5 FLG Pee paeees BEECOMPLETED? 
791 003646 001406 BEQ 2$ ‘BR IF QUICK PASS. 
792 003650 005237 001224 INC LPCNT ‘UPDATE ITERATION COUNTER 
793 003654 023737 O0le24 001222 CMP LPCNT,ICOUNT §; ARE ALL ITERATIONS DONE?? 
re ees lee gos zs: ES Ebeeyc tebe Fo peu ree 
7% BosEed 005037 001224 €LR ERENT {START COUNTER at 0 
797 003674 905037 O0012c0 CLR LOCK 
798 003700 012737 000020 001222 MOV #20, ICOUNT RESET ITERATIONS 
799 003706 013737 001216 001214 MOV NEXT, RETURN ;GET NEXT EST 
800 003714 011600 38: MOV (SP);RO ‘POP RO OFF OF THE STACK 
801 003716 Oe2b26 POP2SP “FAKE AN "RTI" 
003720 013701 001404 MOV DMCSR,R1 ?R1 CONTAINS Base DMC ADDRESS 
803 003724 000177 175264 JMP JRETURN :GO DO THE TEST 
804 003730 001407 BRW 1407 
80S 003732 000437 BRX 437 
806 003734 o00000 DONE 
Bog CHECK FOR FREEZE ON CURRENT DATA 
810 : 
811 003736 004737 007606 .SCOP1: JSR PC, CKSWR ;CHECK FOR SOFT SWR 
812 O0a74e 032777 001000 17523e BIT #Slt09, aSWR "1S SWO9=1 (SET)? 
813 003750 001405 BEQ 1$ :BR IF NOT SET. 
814 003752 005737 001220 TST LOCK 
81S 003756 001402 BEG 1$ 
816 003760 013716 001220 MOV LOCK, (SP) :GOTO THE ADDRESS IN LOCK 
17 003764 90000e 13: RTI :GO BACK. 
g13 : TELETYPE OUTPUT ROUTINE 
821 . 
822 003766 O10S46 .TYPE: MOV RS, -(SP) ; SAVE RS ON THE STACK. 
Ba BoM ee vane oconce ADD o2tsr) Rs Bop so oerse 
Bes o04002 005737 pte 4$: TST SWFLG :SOFT SWR MES 
826 OO4006 001004 BNE 1$ IF YES TYPE IT OUT REGARDLESS OF SW12 
827 1 010000 175164 BIT #SW12, ISWR s ANAT IT PRINT OUT? 
1 1012 NE :BR IF NO PRINT OUT WANTED (SW12=1) 
823 004 108715 1S: iste (RS) 1S NUMBER MINUS? (NSB=1 L(BIT?i3 
et rari 005672 PYRE MCRLF iF Oe ac EE 
832 105777 175154 2g: TSTB aTPCSR : TTY READY? 
833 004034 100375 BPL 23 :BR IF NO. 
§34 36 112577 175150 MOVB (RS)+,aTPDBR § :PRINT CURRENT 
835 004042 001357 BNE 4 :IF NOT ZERO KEEP" Ba INTING! 
S36 OO4044 012605 2$: MOV (SP)+,R5 :END OF OUTPUT. RESTORE RS 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


. INSTR: 
. INSTI: 
. MSG: 


1$: 


es: 


. INSTE: 


INSTRe: 


. PARAM: 


PARAM: 


1$: 


RTI GO HOME 
MOV R3,-(SP) ; SAVE R3 ON STACK 
MOV R4’-(SP) ‘SAVE RY ON STACK 
MOV a4tSP), .MSG 

ADD #2, 4(SP) 

TYPE 

MOV SINBUF ,R4 

MOV 87.R3 

TSTB  aTKCSR 

BPL 1$ 

MOVB J TKDBR, (RY) 

BICB #200, (RY) 

CMPB (R4)+,. 815 

BEQ INSTR 

TSTB aTPCSR 

BPL 2$ 

MOV JTKDBR, JTPOBR 

DEC R3 

BNE 1$ 

MOV (SP)+,R4 

MOV (SP)+.R3 

TYPE MQM 

MOV R3,-(SP) 

MOV R4’-(SP) 

BR INST] 

MOV (SP)+,R4 sRESTORE RY 
HOV (SP)+'R3 RESTORE R3 


MOV RS, -(SP) 
MOV R4’-(SP) 

MOV 4($P),RS 
MOV (RS)+,LOLIM 
MOV (RS)+HILIM 
MOV (RS)+,DEV 
MOVB = (RS)+, LOBITS 
MOVB —« (RS) +, ADRCNT 
MOV Rb, 4(SP) 

CLR 

MOV #INBUF , RY 
CMPB sw 1S. (RY) 

BEQ PARERR 

CMPB  —s-« (R41) , #60 

BLT ARERR 

CMPB —s- (R44), 867 

BGT PARERR 

BICB ~=_ #60, (R4) 
BISB (R45+.RS 
CMPB OO s«w#1S, (RH) 

BEG LIMiTS 


0034 


JO3 
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305 ASL RS 
Bai bovsoe O0e308 ALORS 
89S 004304 006305 ASL RS 


Paaag Res PARERR: FISTER ak 


; TEST TO SEE IF NUMBER IS WITHIN LIMITS 


Sele eoNS SSeoR 


004314 020537 004366 LIMITS: CMP RS HILIM 
004320 101373 BHI PARERR 
00N322 G2cs37 004364 CMP Re LOLIM 
004330 133705 004372 Bee tid RS 
004334 00136 BNE 
310 STORE NUMBER AT SPECIFIED ADDRESS 
912 004336 013704 004370 MOV DEVADR, R4 
$913 o00434e 010524 1$: MOV RS, (R4YS+ 
914 004344 O6270S oD0002 ADD #2" RS 
915 004350 105337 004373 DECB = ADRCNT 
916 004354 001372 BNE 1$ 
917 004356 012604 MOV (SP)+,R4 
918 004360 012605 MOV (SP)+'RS 
919 004362 O00002 RT 
920 O04 000000 LOLIM: 90 
821 004366 0o00000 HILIM: O 
922 004370 on0000 0 
923 372 000000 LOBITS: 0 
324 004373 KORCNTSLOBITS#1 
326 SAVE PC OF TEST THAT FAILED AND RO-RS 
928 ; 
328 004374 016637 900004 001276 .SAVOS: MOV 4 (SP), SAVPC :SAVE R7 (PC) 
331 :SAVE RO-RS 
923 o04402 010537 001272 SVOS: MOV RS, SAVRS : SAVE RS 
004406 010437 901270 MOV  SAVRY : Sav 
935 o044i2 0103 1ob6 MOV R3'SAVR3 : SAV 3 
936 OO4416 010237 001264 MOV R2;SAVRe “SAVE Re 
Go4422 010137 OOle MOV R1,SAVRI :SAVE Ri 
938 004426 010037 001260 MOV 0° SAVRO : 
333 004432 900002 RTI : LEAVE 
Fal RESTORE RO-RS 
943 004434 013700 001260 -RESOS: MOV SAVRO, RO ;RESTORE RO 
Sas 1 Oo 1¢ MOV vel, RL "RESTORE R1 
34S OL 70 1264 MOV VR2'R RESTORE Re 
a9 Sowen 0 wireaa MY RAVAN’ Ra RESTORE Rd 
$48 Bbqwed 1708 ppisee MOY eave’ Be “RESTORE RS 
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004464 o0000e RTI ; LEAVE 
;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


005672 .CONVR: TYPE MCRLF 


ARREARS 
g 
5 


-CNVRT: MOV RO, -(SP) 
CO4474 O10146 MOV R1,-(SP) 
1 nov R3,-(SP) 
1 V RY’ -(5P) 
MOV RS'-(5P) 
960 004504 017601 000012 MOV a12(SP), Ri 
91 004510 oo0002 00012 ADD #2, 12(SP) 
366 oo¥e16 ie! go4719 MOV (R1)+, WROCNT 
llel P4712 1$: MOVB = (R1) +; CHRCNT 
964 004526 112137 004713 MOVB = (R1) +, SPACNT 
95 O04S32 013:37 00471 MOV a(R1)+. BINWRD 
966 004536 122737 3 004712 CMPB = s-83, CHRCNT 
se> 904544 001003 BNE 2$ 
968 004546 042737 177400 004714 BIC #177400, BINWRD 
969 CO¥SSY 013704 004714 2s: MOV BINWRD, RY 
976 ¢ » 113705 712 MOVE § CHRCNT_RS 
971 oOuSbs 012700 001416 MOV STEMP, RO 
972 010403 3S: MOV 
973 004572 042703 177770 BIC #177770,R3 
974 004576 062703 000060 ADD #060, R3 
975 OO4602 110320 MOVB  R3, (RO)+ 
976 004604 CLC 
977 ROR RY 
978 CLC 
979 ROR RY 
980 CLC 
981 ROR RY 
982 DEC RS 
983 BNE 33 
Bs vei 4g HOV TRO) URS) 
4 - + 
a8 004712 pete CheNt 
BNE 4§ 
988 004713 TSTB = SPACNT 
989 BEQ 6$ 
990 0040 cs: MOVB #040, (R3)+ 
991 713 DECB = SPACAT 
992 BNE 5g 
993 6S: CLRB (R33) 
994 007544 TYPE MDATA 
995 004710 DEC WROCNT 
996 BNE 1$ 
997 MOV (SP)+,RS 
998 MOV (SP)+,R4 
9939 MOV (SP)+,R3 
1000 MOV (SP)+,R1 
1001 MOV (SP)+,RO 
1002 RT 
1903 WROCNT: O 
1004 CHRCNT: 
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1005 004713 SPACNT=CHRCNT+1 
1006 004714 900000 BINWRD: 0 
1007 
1008 
1009 ; TRAP DISPATCH SERVICE 
1010 :ARGUMENT OF TRAP ACTED 
1011 *AND USED AS OFFSET TO OBTAIN POINTER 
Ole ?TO SELECTED SUBROUTINE 
1014 OO4716 011646 .TRPSR: MOV (SP), -(SP) ;GET PC OF RETURN 
Tole peNse4 OfSe1e DODDD CS nn Seed 
158 604750 006316 TRPOK: ASL (SP) ” :MULTIPLY TRAP ARG BY 
1018 OO4732 042716 177001 BIC #177001, (SP) °CL T 
1019 004736 062716 001330 ADD #. TRPTAB, (SP) ;POINTER TO SUBROUTINE ADDRESS 
1020 OO4742 017616 900000 MOV a(SP), (SP) : SUBROUT INE 
1021 004746 000136 JMP a(SP)4+ :GO TO SUBROUTINE 
1023 ;ERROR HANDLER 
ioe MG 
1026 750 004737 007606 -HLT: JSR PC, CKSWR ;CHECK FOR SOFT SWR 
1027 004754 032777 O10000 174220 BIT #Sll2, aSWR ‘BELL ON ERROR? 
1028 762 001406 BEQ XBX ?BR IF NO BELL 
1029 004764 105777 174220 TSTB  aTPCSR : TTY Y. 
1030 1 BPL XBX :DON’T WAIT IF TTY NOT READY 
1031 004772 112777 000207 174212 MOVB #207, aTPDBR ;PUSH A BELL AT THE TTY. 
1032 O0S000 032777 O20000 174174 XBX: BIT #SW13, JSWR ;DELETE ERROR PRINT OUT? 
1033 005006 001105 BNE HALTS :BR IF NO PRINT OUT WANTED. 
1034 005010 021637 001234 CMP (SP) ,LSTERR WAS THIS ERROR FOUND LAST TIME? 
1035 005014 001404 BEQ 1$ :BR IF YES 
103? Osbee fOeRa? pot gee re ae ce ee ee 
it poense At 1S: SAVOS SAVE ALL PROC REGISTERS 
1 005030 O11 MOV (SP),RS ‘gave THE P 
1040 005032 162705 o0000e SUB #2, RS :GET ADORESS OOF wo CALL 
1041 005036 011504 MOV (RS), RY -GET HLT INSTRUCTION 
1042 005040 006304 ASL : MULT 
1043 oO0SO042 061504 ADD (RS),R4 :DOUBLE IT 
ipue DosDG OME704 177001 Bic —«8177001,R4 SOEAR TUN 
ive O0SOSE 012437 oot 72 ayy ad et ERROR 
MOV (RY) +, . 
1048 ppaDbe pleas? MOV (R4)+ beraHo ice bara HEADRER” 
4 ib MOV 4) , DATABP :GET DATA TABLE 
1050 005072 105737 001325 TSTB ERR ; TYPE HEADREER 
tes BBE? Se 
005216 DAT OE oat TABLE EXIST? 
1084 B51 08 Touuge 7 TYPMSG ve MCRL s6R IF 
ied pre 1% rt Spee? TYP *"MCRLF 
1056 005116 737 001220 TST Lock 
1057 005122 00140e BE 
1058 005124 104402 006142 TYPE § ,MASTEK 
1059 005130 104402 006130 1S: TYPE § {MTSTN 
1060 005134 104411 005330 CNVRT  [XTSTN ;SHOW IT 
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? TYP , MERRP ;TYPE PC. 
{Res Rate p8uuy BESS GWRT  "ERTABO  CHOn iF 
1063 O00S1SO 104402 005672 TYPE MCRLF ‘GIVE A CR/LF 
1064 005154 112737 177777 001325 MOVE = &-1, ERRFLG :NO MORE READER UNLESS NO DATA TABLE. 
1065 005162 005737 005172 TST ERRMSG ‘IS THERE AN ERROR MESSAGE? 
1066 005166 001402 BEQ WRKO.FM ‘BR IF NO. 
1067 005170 104402 TYPE : TYPE 
1068 005172 000000 ERRMSG: 0 : ERROR MESSAGE 
1069 005174 WRKO. FM: : 
1070 905174 005737 005204 TST DATAHD sDATA HEADER? 
1071 005200 001402 BEQ TYPDAT *BR IF NO 
1072 o00S202 104402 TYPE ; TYPE 
1073 005204 00000 DATAHD: 0 DATA HEADER 
1074 005206 005737 005216 TYPDAT: TST DATABP ‘DATA TABLE? 
1075 005212 00140e BEQ RESREG ‘BR IF NO. 
1076 005214 104410 CONVRT isto 
Ira EESee (bag? RIPE: fess nese ere Rese 
1079 ppesse 493395 003522 o0004e2 HALTS: CMP #SENDAD, a#42 IF ACT-11 AUTOMATIC MODE, HALT!! 
1080 005230 001403 BEQ 1$ 
1081 D052 005777 173744 TST aSWR ;HALT_ON ERROR? 
1082 36 100005 BPL EXITER ‘BR IF NO HALT ON ERROR 
1083 O0S24O0 010046 1S: PUSHRO : SAVE 
1084 O0S242 016600 o0000e MOV 2(SP),RO SHOW ERROR PC IN DATA LIGHTS 
1085 005246 HALT sHALT 
1086 005250 012600 POPRO GET RO 
1087 005252 005237 001232 EXITER: INC ERRCNT “UPDATE ERROR COUNT 
1088 005256 032777 OOO400 173716 BIT #SWO8, ISWR :GOTO TOP OF TEST? 
1089 005264 001007 BNE is :B YES 
1090 005266 032777 002000 173706 BIT #SW10, JSWR GOTO NEXT TEST? 
ipa 2 p0ee76 513737 001216 001214 ROY SEAT RETURN |. TEST 
1835 005304 012706 001200 iS: MOV #STACK, SP *RESET SP 
1094 005310 013701 001404 MOV DMCSR, R1 :SET UP RI 
109S 005314 000177 173674 JMP JRETURN :GOTO SPECIFIED TEST 
10% 005320 o00002 2S: RTI : RETURN 
1097 000001 ERTABO: 1 
1098 005324 006 002 .BYTE 6,2 
1099 005326 001276 SAVPC 
1100 005330 000001 XTSTN: 1 
1101 005332 003 002 .BYTE 3,2 
1102 005334 001226 TSTNO 
1103 ;ENTER HERE ON POWER FAILURE 
1105 : 
1106 
1107 005336 .PFAIL: 
1108 005336 012737 o0S3S0 oj0024 MOV #RESTART, 24 :SET UP FOR POWER UP TRAP 
1109 005344 000000 HALT :HALT ON POWER DOWN NORMAL 
1110 005346 000777 BR ; 
1112 ;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
1114 005350 RESTAR: 
1115 005350 012737 005336 oD0024 MOV #.PFAIL, 24 ;SET UP FOR POWER FAILURE 
1116 005356 012706 001200 MOV SSTACK, Sp ‘RESET THE STACK POINTER 
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1117 905362 91370 001404 MOV DMCSR,R1 sRESTORE R1 
tI Obie ae TEP ALU ore 10 Te TINER! 
1130 Bese ure BNE 4 ‘BR IF MORE TO G 
1l21 O0S400 104402 005675 TYPE | MPFAIL “TYPE THE fecoage 
lle2 00s 104411 005430 CNVRT  ‘PFTAB ‘TELL WHAT TEST TO RETURN TO. 
1123 005410 105037 001325 CLRB = ERRFLG ;START CLEAN 
1104 005414 005037 001234 CLR LSTERR ‘ pequimgumenee 
1125 005420 005011 CLR (RL) CLEAR MAINT BITS 
1126 OOS¥22 104412 MSTCLR :START CLEAN UP OF DEVICE 
1127 005424 000177 173564 IMP QRETURN :START DOING THAT TEST AGAIN. 
1128 005430 000001 PFTAB: 1 
1129 0905432 003 oo2 .BYTE 3,2 
1130 005434 001226 TSTNO 
1135 Bocuse 012777 co0D20 173746 “DELAY: oy 20, dDMPOM 
1133 ete ra9414 ROMCLK «NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1135 OOS44%6 121111 121111 :POKE CLOCK DELAY BIT 
1136 OOS4SO 1$: 
1137 005450 104414 ROMCLK. ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1138 005452 121224 121224 : PORT4+ IBUS#1 1 
1139 005454 032777 000020 173730 BIT #BIT4,aDMPO4 IS CLOCK BIT SET? 
1140 005462 001772 BEQ 1$ :BR IF NO 
11a 005464 000002 RTI 
1143 OOS466 .MSTCLR: 
1144 O0S466 152777 000100 173712 BISB  &BIT6,3DMCSRH ;SET MASTER CLEAR 
1145 005474 142777 000300 173704 BIC8 © #BI Tb !BIT7, aDMCSRH :CLEAR MASTER CLEAR AND RUN 
1146 oo0sso2 o0000e2 RTI : RETURN 
1148 .ROMCLK: 
1149 005504 152777 000002 173674 BISB  #BIT1,aDMCSRH  ;SET ROMI 
11S0 O0055i2 013677 173676 MOV a(SP)+,aDMP06  ;LOAD INSTRUCTION IN SEL6 
1151 005516 O6274% o00002 ADD 4 -(SP) ‘ADJUST STACK 
1152 005522 032777 O00100 173452 BIT WSO, aSHR “HALT IF SWO6 =1 . 
1153 001401 BEQ ;BR IF SwOb =9 
1154 005532 000000 HALT “HALT BEFORE CLOCKING INSTRUCTION 
1155 005534 152777 000003 173644 1S: BISB #BIT1!BIT 0,30 BONCSRH “CLOCK INSTRU 
1156 005542 140777 000007 173636 BICB s#BIT2!:BITI!BITO,aDMCSRH ;CLEAR ROMO, ROMI, STEP 
1157 0055S0 900002 RTI 
1159 o0sss2 .DATACLK: 
1160 O055S2 013637 001416 MOV a(SP)4 TEMP ;PUT TICK COUNT IN TEMP 
1161 O05556 062746 ADD -(SP) “ADJUST STACK 
Hes tee deer Wie ie we BI ears 
1183 Speer 14 boaB20 173602 BICB #BIT4,aDMCSRH ;CLEAR STEP LU 
1165 001416 DEC TEMP :DEC TICK COUNT 
1166 00561 1364 ‘BR I 
1167 00561 RTI :RETU 
1168 005614 o0000! 3S: -BLKW 1 
1170 O0S616 TIMER: 
1171 OOS616 013637 O01416 MOV a(SP)+. TEMP :MOVE COUNT TO TEMP 
1172 O0S62e2 O6e746 O00002 ADD #2,-(SP) :ADJUST STACK 
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ll 22-APR-77 09:29 GENERAL UTILITIES (TYPEOQUT, ERROR, SCOPE, ETC) 
00S626 1$: 
O00S6e6 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
00S630 021364 021364 feat hate oy 1 REGLI 
ieee 032777 O00002 173552 BIT #2, JOMPOY ;1S PGM CLOCK BIT CLEAR? 
irae 001772 2 BEQ 1§ ;BR IF YES 
OOS64e 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5S304 
OOS644 021364 021364 >PORT4+IBUS# REG11 
O00S646 032777 000002 173536 BIT se, 2DMPO4 31S PGM CLOCK BIT SET’ 
O0OSESY 001372 BNE es ;BR IF YES 
O00S6S6 005337 001416 DEC TEMP ;DEC COUNT 
OOS662 001361 BNE 1$ ;BR IF NOT DONE 
005664 000002 RTI ; RETURN 
00S665 d20040 000077 MQM: EIS , 
00S67e 005015 000 MCRLF: .ASCI «15><12> 
005575 377 053520 Oe0lee2 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
005733 377 047105 104 MEPASS: .ASCIZ <377>/END PASS DZDMG / 
005755 377 O00le2 : -ASCIZ <377>/R/ 
moe ie Boil, Ee Fereg! Seely teh ner Ie ata 
006031 377 O42S24 pesrs3 ne TBe “Pacts (377>/TES -/ 
006043 377 047514 O45503 MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 
006072 O5iS03 O3Sle2 O00040 MCSRX: .ASCIZ /CSR: / 
006 100 035103 O00040 MVECX: .ASCIZ /VEC: / 
006106 O40S20 051523 051505 MPASSX: .ASCIZ /PASSES: / 
006117 10S OSil22 051117 MERRX: .ASCIZ /ERRORS: / 
006130 O42S2e4 O0S2l23 7040 MTSTN  Racté /TEST NO: / 
006142 o000S2 MASTEK: .ASCIZ /#/ 
006144 051777 OS210S 0S1440O MNEW: .ASCIZ <377>/SET SWITCH REG TO DMC11°S DESIRED ACTIVE. / 
006217 120 035103 0 ME -ASCIZ /PC: / 
O0b2e4% Oedele Oe004O O20040 XHEAD: .ASCII <2l2>/ MAP OF DMC11 STATUS/ 
006263 377 Ode0040 ASCII (3770/4 enn nnnnnenenn- f 
006322 Oe0el2 OS0040 020103 -ASCII <2l2>7 PC CSR STATI STAT2 STAT3/ 
006374 026777 Oe64SS O264SS SASCIZ (377) feeenne ewer eee reer renee / 
O064S0 044377 053517 O46440 NUM: -ASCIZ <377>/HOW MANY DMC11’S TO BE TESTED?” 
006510 041777 OSlle3 O40440 CSR: .ASCIZ <377>/CSR ADDRESS?/ 
006526 041505 047524 VEC: -ASCIZ <377>/VECTOR ADDRESS?/ 
006547 377 051102 OsSO040 PRIO: -ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6,7)?7 

044777 020106 O46S04 CRAM: .ASCIZ <377>/IF DMC HAS CRAM ( )’ TYPE “Y". IF CROM (M8200) TYPE “N™ 
006704 044510 044103 MODU: .ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE a IF M8201 TYPE “1", IF M 
007016 051777 O44Se7 041524 LINE: .ASCIZ <377>/SWITCH PAC#l (DOCMP LINE 8)?/ 
0070S4 051777 O44S27 041524 BM -ASCIZ <377>/SWITCH PAC#e (BM873 BOOT ADD)?/ 
007114 044777 Q20le3 044124 CONN -ASCIZ <377>/1S THE LOOP BACK CONNECTOR ON?/ 
007154 047377 O20117 O42S04 NOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 

377 OS51412 051127 SWMES: .ASCIZ <377><12>/SWR= / 

007215 116 0S3505 77 SWMES1: .ASCIZ /NEW? 7 
00 042377 O41515 CONERR: .ASCIZ (377><377>/7DMC11 FOUND AT NON-STANDARD ADDRESS PC: “ 
007277 377 OS410S OY CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
007320 O24040 024503 -ASCIZ 7 (DMC) / 
007330 13. 02e4S03 KMCM -ASCIZ 7 (KMC) / 
007340 042377 O41S15 030 wee -ASCIZ <377>/DMCLI-AR(REMOTE,LOW SPEED) OR DMCLI-AL‘LOCAL.HIGH SPEED) 7 
0074S4 XSTATQ: §S 
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ll 22-APR-77 09:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
7462 906 003 .BYTE 6,3 
007464 001 TEMP? 
007466 006 003 .BYTE 6,3 
007470 001252 TEMPS 
097472 006 003 .BYTE 6,3 
007474 001254 TEMPY 
007476 006 002 .BYTE 6,2 
007500 001256 TEMPS 
EVEN 
:BUFFERS FOR INPUT-OUTPUT 
007502 INBUF: 0 
007544 =. 440 
007544 go0000 MDATA: O 
007606 =. +40 
ROUTINE USED TO CHANGE SOFTWARE SWITCH 
REGISTER USING THE CONSOLE TERMINAL 
007606 022737 000176 001202 CKSWR: CMP SSWREG, SWR :1S THE SOFT SWR BEING USED” 
007614 001077 BNE CKSWRS :BR IF NO 
007616 105777 171362 TSTB = TKCSR :1S DONE SET? 
007622 100003 BPL 2s GO ON IFN QT SET 
007624 012737 177777 003734 MOV -1 ‘IF DONE SE FLAG 
007632 000007 171346 25: CMP 87, JTKDSR “WAS CTRL G ET BED? iS BIT ASCII) 
007640 001404 BEQ 1$ ‘BR IF YES 
4 000207 171336 CMP #207 , JTKDBR :WAS CTRL G TYPED? (8 BIT ASCII) 
001061 BNE CKSWRS :BR IF NO 
007652 010246 1S: MOV Re, -(SP) STORE Re 
007654 010346 MOV R3,-(SP) ;STORE Ra 
007655 O10446 MOV R4'-(5P) TORE 
007660 012737 177777 010016 MOV #-1,SWFLG ‘SET SOFT TYPE OUT FLAG 
007666 o0S002 CKSWR1: CLR R2 ‘CLEAR NEW SWR CONTENTS 
007670 012704 177777 MOV #-1,R4 SET FLAG TO ALL ONES 
7 104402 907205 TYPE  ,SWMES TYPE * oars 
007700 104411 CKSWR2: CNVRT TYPE OUT PRESENT CONTENTS 
007702 010052 SOF TSH : OF OF SORTS SWITCH REGISTER 
007704 104402 007215 CKSWR3: TYPE SWMES1 
007710 004737 Ol CKSWRY: JSR PC. INCHAR GET 
007714 022703 O00015 CMP #15.R3 :WAS IT A CR? 
007720 001424 BEQ ‘BR IF YE 
007722 022703 000012 MP #12,R3 :WAS IT A LF? 
007726 OO01416 BEQ :BR IF YES 
007730 022703 000025 CMP #25,R3 ‘WAS IT CTRL U? 
007734 001754 BEQ CKSURI !BR IF YES(START OVER) 
00773 022703 000007 CMP #7. R3 IF CNTL G GET NEXT CHAR 
007742 001762 BEQ CKSWRY 
007744 O0S004 CLR RY :IT MUST BE A DIGIT SO CLR FLA 
007746 042703 177770 BIC #177770,R3 :ONLY 0-7 ARE LEGAL SO MASK SFE BITS 
007752 006302 ASL Re :SHIFT Re 3 TIMES 
007754 00630c ASL Ro 
007756 006202 ASL Ro 
097760 050302 BIS R3,R2 :ADD LAST DIGIT 
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se: 


6$: 


SOF TSW: 


DO4 


KSWRY 
&. START, 6(SP) 


aTKCSR 
STKOBR, R3 
oTPCSR 


R3 RS 
aeit? 


T NEXT CHARACTE 
i FLRG CLEAR £0 TO START 


DON’T CHANGE SOFT SWR 
HE eg PHEN ft NEW CONTENTS TO SCFT SWR 
:CLEAR TYPEOU 


R3 
IRES TORE Re 
; RETURN 
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ig? 

127 * ROUTINE SE To 2cy L 1 
gr TRO ate 8 SUP THE CONTROL "PODRESS pre ti aQ}RGNOSTIC 
1e7S Eat CIFIED Amati HIS ROUTINE # 
1276 BE RUN FIRST BEFORE ENTERING THE pincnosric FOR THE 
le77 +E TUP NECESSARY. 

1599 

1280 010060 005737 001306 CYCLE: TST DMACTV ;ARE ANY DMC11’°S TO BE TESTED? 
1281 010084 001004 BNE 1$ ‘BR IF OK. 

1282 010066 104402 007154 TYPE —_ , NOACT "NO DMC11°S SELECTED!! 
cea Bt 000776 Hee 2 SR SOUTEY CONT. SH 
1285 BOOT 000241 1S: CLC spree PROC. CARRY BIT. 
1286 010100 006137 001316 ROL RUN ‘UPDATE POINTER 

1287 010104 005537 001316 ADC CATCH CARRY FROM RUN 
1288 010110 062737 OO00004 001322 ADD MILK ; UPDATE POINTER 

1289 010116 062737 OO0010 0 ADD #10, CREAM ‘UPDATE ADDRESS POINTER. 
1290 010124 022737 001700 00130 CMP :MAP+200, CREAM 

12°91 010132 001006 KEEP GOING; NOT ALL TESTED FOR. 
1292 010134 012737 001500 001320 MOV #0M.MAP,CREAM RESET RODRESS POINTER. 
1293 010142 012737 001702 001322 MOV #CNT. MAP. MILK metre S COUNT POINTER 
1294 010150 37 001316 001306 2s: BIT RUN, DMACTV HIS ORE “ACT IVE? 

129S 010156 001747 BEQ 1$ F NO 

12% 010160 013700 001320 MOV CREAM, RO GET ADDRESS POINTER 

1297 010164 013702 001322 MOV MILK, Re GET PASS COUNT | POINTER 
1298 010170 012037 001404 MOV (RO)+, DMCSR ‘LOAD SYSTEn M CTRL. REG 
1299 010174 011037 001374 MOV (RO), OMRVEC “LOAD VECTOR 

1300 010200 042737 177000 001374 BIC #177000, OMRVEC ‘CLEAR UNWANTED BITS 
1301 010206 012037 001366 MOV (RO)+, STAT ‘LOAD STA 

1302 010212 012037 001370 MOV (RO)+; STAT2 : LOAD arate 

1303 010216 012037 001372 MOV (RO)+; STATS ‘LOAD § 

1304 010222 012237 001230 MOV (Re)+;PASCNT PASS COUNT 

1305 010226 012237 001232 MOV (Re), "ERRCNT § :LOAD ERROR COUNT 

1306 010232 012700 o00002 MOV RO’ :SAVE CORE THIS WAY! 
1307 010236 013737 OO1404 001406 MOV DRecR DMCSRH 

1308 010244 005237 001406 INC H 

1309 010250 013737 OO1406 001410 MOV OMCSRH, OMCTL 

1310 010256 37 001410 INC OMCTL 

1311 O10262 013737 001410 ool4le MOV OMCTL, DMPO4 

1312 010270 001412 ADD RO. DMPO 

1313 010274 013737 OO1412 001414 MOV DMPO4, DMPO 

1314 010302 060037 001414 ADD RO, DMPO 

1316 010306 013737 001374 001376 MOV DMRVEC OMRLVL ;PTY LVL 

1317 010314 060037 001376 ADD 0, OMRLVL : 

1318 010320 013737 001376 001400 MOV BRAC VL OMTVEC ;TX VEC 

1319 010326 060037 001400 ADD RO, OMTVEC ; 

1 010336 013737 001400 oc1402 MOV Aatec OMTLYL :TX LVL 

32h 01 37 o014d2 ADD RO, OMTLVL 

1323 010344 032737 o00002 001236 BIT #SWO1,STRTSW  ;IS TEST NO. SELECTED 
1304 010352 001450 BEQ 7§ :BR IF NO 

1325 910354 4g: 

1226 619354 005727 oD004e TST ae42 sRUNNING IN ALTO MODE? 
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g RRS Ps ‘i 7h os 
1362 005672 YPE  ,MCRLF 
13e3 Wes 104403 INSTR :GET TEST NO. 
133; 818338 BRR Baan 
1332 010374 000001 1 
1333 010376 001000 0 
1334 O10400 001226 TSTNO 
1335 010402 000 .BYTE O 
1336 010403 001 “BYTE 1 
1337 O10404 012700 022322 MOV #TST1,RO 
1338 O10410 022710 Ss: CMP (PC) +! (RO) :CMP FIRST WORD TO 12737 
1339 O10uie 012737 HOV (PC) +; a(PC)+ papepen: 
AY 
eh pt Bdte tea 001226 oo00002 ane ar !DOES TSTNO MATCH? 
1345 BI Otee eee 001226 090004 aed TSTNO, 4(RO) :8R LAST WORD OK? 
b i : 
1344 Ot buss atte BNE of :BR IF NO x 
1345 010436 010037 001214 MOV RO, RETURN -IT IS A LEGAL TEST SO DO! 
1346 O10442 104402 005755 TYPE 
1347 O10446 042737 000002 901236 BIC &SWO1, STRTSW 
1348 O104S4 O004ie BR 8$ 
1349 O0104S6 005720 6S: TST (RO)+ ;POP RO 
1350 O10460 020027 o2647e CMP RO,S8TLAST+10 § :AT END YET? 
1351 O10464 001351 BNE S$ : 
1352 O10466 104402 ODS6EE TYPE MOM sYES ILLEGAL TEST NO. 
1353 010472 000730 BR 4g :TRY AGAIN 
1355 O10474 012737 022322 901214 73: MOV WTST1,RETURN  ;PREPARE RETURN ADDRESS 
1356 O10S02 013701 o01404 93: MOV OMCSR RI *R1l = BASE DMC11 ADDRESS 
1367 019506 000177 170S0e IMP ORETURN GO START TESTING. 
1359 
1360 ;ROUTINE USED TO “AUTO SIZE” THE DMC11 
1361 :CSR AND VECTOR. 7 
1362 :NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
1363 : ADDRESS RANGE (160000: 164000} 
1364 : AND THE VECTOR MAY BE ANY WHERE IN THE 
1365 : FLOATING VECTOR MO ANGE (300:770) 
1366 : 
1367 
1368 010512 AUTO.SIZE: 
1369 010512 oo0000S RESET : INSURE A BUS INIT. 
1370 010514 O1e702 o01S00 CSRMAP: MOV aN. NAP. Re ‘LOAD MAP POINTER. 
1371 010520 005022 1S: CLR (R2)+ ‘ZERO ENTIRE MAP 
1372 010522 022702 001700 CMP 80M. END, R2 -ALL DONE? 
1373 010526 001374 BNE 1$ :BR IF NO 
1374 010530 005037 001310 CLR BRNUM ‘SET OCTAL NUMBER OF OMC11°S T0.9 
1375 010534 012702 001500 MOY #0M. MAP, Re ‘Re POINTS TO DMC MAP 
1376 010540 005037 001306 CLR DMACTV :CLEAR ACTIVE 
1377 010544 032737 000001 001226 BIT #SWOO,STRTSW § : QUESTIONS? 
1399 bt Deed aad 2 Oe ag :BR MA skip QUESTIC NS 
8) 
1380 O10560 0127 ear 001256 MOV #1, TEMPS :START WITH 
1361 010566 104403 INSTR 
1382 019570 o06450 NUM 


Bene. prt  bacmeRe ee o:8a | dene 


1383 
1384 
1385 


ehierhriter tt id 


0 bh 
OOOO OVOOOOOVO OOOO VOODOO O0000000 


-_ 
- 
oO 
a 


=t=t=4 
ores 


—- 
or 


aaa te 


RRRRRRRK 
REVS EGS 


SARI IERERE 


S38 
oco 


i 0 ee 


3 


PR RPERER DIT 


S 
if 


OOOOOOCOVOOOOOOO0O00000 
£ 


bb bb 0 0 0 


3 


104405 
00000 


000763 


O001eS2 001310 
005672 


001256 


001254 


0012S4 
012266 
o00de4 
o000e7 
000011 


170777 


Ol22bE 
000131 


000116 


AGE 2 


RAL GfILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


12$: 


10$: 


ccs: 


8$: 


PARAM 


GO4 


1 
TEMPY, (R2)+ 


0 
1 
TEMPY, (Re) 


PC, INTTY 
#24,R3 


74 
8170777,R3 
R3, (Re) 

$ 

10$ 
PC, INTTY 
a131,R3 
8116,R3 
4O$ 


8$ 


;OMNUM = HOW MANY 


; TYPE WHICH DMC IS BEING DONE 
;TEMPS IS WHICH DMC 


;STORE CSR IN MAP 


;STORE VECTOR IN MAP 


;ASK WHAT BR LEVEL 
;GET RESPONSE 


'BR IF LESS THAN 4 
BR IF GREATER THAN 7 
"RY = NUMBER OF SHIFTS 


;DE 

;BR IF NOT 

;BIC UNWANTED BITS 

;PUT BR LEVEL IN STATUS MAP 
; CONTINUE 


sRESPONSE IS OUT OF LIMITS 
; TRY AGAIN 

sDOES DMC HAVE CRAM? 

GET REPLY 

; YES 

sNO 

;NOT A Y OR N 


sTYPE “?* 
;ASK AGAIN 


PAGE: 
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14 11 4 4O$: ‘TYP. 

14 OLB abr OEFED ;DMC11-AR OR DMC11-AL? 
ie liane gperag Sate a a a ie 

tlee, 

144 Btois 11 Sra ale be REMOTE 

1444 011016 000114 CMP #114,R3 ITL 

1445 011022 001403 BEQ 41§ ‘BR IF LOCAL 

1446 011004 104402 TYPE 

1447 011026 QM 

1448 011030 000763 BR 40$ :TRY AGAIN 

1449 11032 052762 oco002 o00004 41$: BIS #BIT1,4(R2) :SET BIT IN STAT 

1450 011040 o00402 BR : 

1451 011042 OSe712 100000 9S: BIS #BITIS, (R2) :SET BIT 1S IF CRAM 

1452 011046 104402 i6$: TYPE 

1453 011050 006704 MODU ASK WHICH LINE UNIT 
1454 011052 004737 012266 JSR PC INTTY GET REPLY 

1455 011056 022703 000021 CMP #21.R Med ag 

1456 011062 001417 SEQ 30$ nauk 

1457 011064 O22703 oo0022 CMP #22,R3 "2 

1458 011070 OOl41e BEQ 

1459 011072 022703 o00116 CMP #116,R3 ."N" 

14680 011076 001403 BEG 32$ 

1461 O11100 104402 TYPE : 
1462 011102 OOS666 MQM :IF NOT A 1,2 OR N TYPE “? 
1463 011104 000760 BR 16$ : TRY AGIAN 

1464 011106 OS2722 010000 328: BIS aB1T12 (R2)+  :SET BIT 12_IN STAT2 IF_NO LU 
1465 Ollll2 O22222 CMP 2)+, tR2)+ :POP OVER STAT2 AND STAT3 
1466 011114 OO0447 BR fg 

1467 011116 OS2712 o20000 31$: BIS #81713, (R2) -SET BIT 13 IN STAT2 IF Me2ce 
1468 Ollle2 104402 303: TYPE 

1469 O111e4 007114 CONN sASK IF LOOP-BACK IS ON 
1470 O11126 004737 oOl2266 JSR PC, INTTY :GET REPLY 

1471 011132 022703 000131 CMP 12, R3 LY 

1472 011136 001406 BEQ 

1473. 011140 022703 000116 CMP ¥116,R3 iN 

1474 011144 001406 Q 18$ 

1475 011146 104402 TYPE 

1476 011150 MOM sIF NOT Y OR N TYPE "2" 
1477 011152 009763 BR 30 :TRY AGAIN 

1478 O11154 OS2722 o40000 17$: ‘BIS #BIT14,(R2)+ | TURNAROUND IS CONNECTED 
1479 011160 o00402 BR g 

1480 O1l1l62 O42722 O4O000 18$: BIC #BIT14,(R2)+  ;NO TURNAROUND 

1481 O11166 193: 

1482 O11166 104403 INSTR 

1483 011170 Ole LIN 

1484 011172 104405 PARAM 

I4BE OLLI7e | B00S77 67 

ties Bilson Bolss4 EMP4 

1488 Olleo2 000 .BYTE 0 

1489 011203 001 "BYTE 1 

1490 011204 113722 001254 MOVE. -TEMPY, (R2)+ sSTORE SWITCH PAC IN MAP 
1491 Ollelo 104403 INSTR 

1492 Ollele 007054 

1493 O112e14 104405 PARAM 

1494 Oll216 oo0000 


104 
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AS Gus BR thes 

14 Bt Sed ee 0 

th: pit m0 : 001254 Ms : MP4, (R2)+ ORE SW HITCH PAC IN MAP 

1236 pt 1ss8 Ai3e5s ny (Boe ‘Bop OVER STAT3 

1501 011234 005337 001252 33S: DEC TENPS sDEC D C 

1 pts i nutter 010612 hic le itt PONG 

1504 011246 000137 01170e 34S:  JMP 13$ : CONTINUE 

150S O112S2 012701 160000 7$: MOV #160000,R1 SET FOR FIRST ADDRESS TO BE TESTED 
1506 011256 012737 011774 oOO0004 MOV #63. a84 SET FOR NON-EXISTANT DEVICE TIME OUT 
1507 011264 005011 2$: CLR (RL) a SELO 

12g Bt 1598 ite BNE 3$ iff RO ’bev Bab’ Boy. IF NO BIT 8 THEN NO DMCi 
ia, GLLeee Seveh Sone ah Sa ot 50 0 

ets 61578 SBT iee BNE fe oe hor DRC 

1513 011304 012711 oo2000 MOV #B1T10, (R1) 

1514 011310 005061 OO0004 CLR 4(R1) + OrEAR A OELY 

1515 011314 012761 125252 O00006 MOV #125252,6(R1) {WRITE THIS TO SEL6 

1516 011322 052711 O20000 BIS #81713, (R1) ‘WRITE IT! 

1517 011326 O22761 125252 O00004 CMP 8125252,4(R1)  :WAS IT WRITTEN? 

1518 011334 OO1004 BNE 21$ !IF NO IT IS NOT CRAM 

1519 011336 OS2762 100000 oo0000e BIS #B1T15,2(Re) :SET BITIS IF CRAM 

1520 011344 000431 BR 225 

1521 01134 012711 001000 21$: MOV #81T9, (R1) ;SET ROMI 

1522 011352 O1e761 100417 o00006 MOV #100417,6(R1) | :PUT INSTRUCTION IN SEL6 

1523 011360 012711 001400 MOV $8179! BTS (R1) CLOCK INSTRUCTION (MICRO PROC PC TO 0 
1524 011364 012711 o02000 MOV #BIT10, (R13 : SE 

i525 011370 O2e761 000006 CMP #626, 6[R1) IS IT LOCAL CROM 

1526 011376 OO1411 BEQ 3$ ‘BR IF YES 

1527 011400 O22761 O16S20 on0006 CMP #16520, 6(R1) :IS IT REMOTE CROM? 

1 11406 001410 BEQ ?BR IF YES 

1 11410 022761 177777 oD0006 CMP #-1,6(R1) =NO CROM? 

1530 O11416 001404 BEQ 225 :BR_IF YES 

1531 O11sed 16 BR 3 !NOT A DMC 

1 11422 62 900002 on0006 23%: ‘BIS -SET BIT 1 IN STAT3 

1533 “AT THIS POINT We is “ASSURED THAT R1 HOLDS A DMC11 CSR ADORESS. 

1534 011430 010122 45g. MOV R1, (Re) sSTORE CSR_IN CORE TABLE. 

153S 011432 012711 001000 1S$: MOV tet, (RL) : CLEAR CINE UNIT LOOP 

1536 011436 005061 O00004 CLR 4(R CLEAR PORTY 

1537 011442 012761 122113 oO00006 MOV #120113 6(R1)  ;LOAD INSTRUCTION (CLR DTR? 

1538 O11 052711 O00400 BIS #8178, (R1) sk INSTRUCT Ton 

1539 11454 O1e761 021264 oo0006 NOV mete, fl (RI) LOAD NSTRU cil NT 

%' 

te4) Biives [38761 p03? 00004 R83 nara oH ri Tau 

1542 011474 001003 BNE 

1543 011476 OS2712 010000 BIS epiri2, (R2) i‘ a MNO LINE UNIT, SET STATUS BIT 
1544 Oi 000436 BR 20$ 

i54s O11 032761 oo0002 op0004 BIT egiT1, 4(R1) ;IS SWITCH A ONE? 

Bue orieia are 060000 ore BIT13!BIT14, crel nee 2. ASSLNE CONNECTOR 

t 

154e sbi pae, 85 BR tare 

1549 011522 032761 000010 oD0004 BIT #8173, 4(R1) connect eet" 

1550 011530 001023 BNE 208 BR IF M8201 NO CONNECTOR (ON LINE?) 
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GL LISS GLMEL OLICD RE 
18 Biiees Brs761 Bet2e4 000006 
Hee BLISS? RSH! SEE coon 
1SS7 0115 0014 
1558 011574 OS271e 040000 
1559 011600 0057ee 
1560 ‘thar fey a4 O00006 
ies BHueHS uErH 
1563 011620 012761 aon ooo006 
fas less WET SRA 
1566 011636 00S7ee 
1p IES BEI cosy 
156 Biiede WEEE 000020 001310 
1970 011654 0o01412 
ee Gia aca fea 
fe Glee cas Mbt 
1S76 011676 000137 O11264 
fe ICR BBB BRL 
1579 011712 001423 
1580 011714 01370 po1 gto 
1$81 17e0 O101 1314 
1$82 011724 1 
1583 011726 006137 001306 
1584 17 7 001306 
1585 0117 1 
1586 te oLeee a 
ig IPSS Riera SRO San 
1589 011756 000137 012010 
1590 011762 AOS 760 
1591 011766 
1592 011770 o00000 
1593 011772 000776 
1594 011774 12716 011664 
i oon Soe 
1$97 012002 000001 
1598 012004 002 002 
17aR 012006 001256 
1601 012010 032737 000001 001236 
1662 Q12e016 001114 
1603 O12020 012737 000349 000022 
1604 O1e026 012737 Oleede 000020 
160€ 012034 012702 1500 
£06 012040 012700 000300 
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20s: 


33: 
14S: 


138: 


4§: 


S$: 


6$: 


WHICH: 


VECMAP: 


aii 

Bau gecR) 
a (fu), 
aBIT14, (R2) 
4051324 6(R1) 


se TS!Bi TB, (RL) 


#021344 6(R1) 


SEALY, AS (R1) ; 


2 
#148, (SP) 


2.2 


#SWOO, STRTSW 


#340, a822 
#4$, a#20 
#0M! MAP, U2 
#300, RO’ 


iL BAB he 


;CLOCK Tse DTR) 

;LOAD INSTRUCTION 

$e ANG TRUC TON (READ MODEM REG) 
;BR_IF NO CONNECTOR 

;SET yer BIT FOR CONNECTOR 

PUT INSTRUCTION IN PORT6 


iBOR TAH bp LINE # IN TABLE 
: PORT6+ INSTRUCTION 


Shoe anes" ADD IN TABLE 
POP OVER STAT3 


‘CLEAR _ROMI 

He Fe DEVICE COUNTER 

'ARE MAX. NO. OF DEV FOUND? 
:YES DON’ T LOOK FOR ANY MORE. 
CLEAR T i0 

réL L 6 

‘UPDATE CSR POINTER ADDRESS 


;BR IF DONE 
; JUMP IF NOT 


;WERE ANY DMC11°S FOUND AT AL 


C048 


ERROR AUTO SIZER FOUND NC ONCLI"S IN THIS SYS. 


;SAVE NUMBER OF DEVICES 
5 ereRTE ive REGISTER OF DEVICES. 


- 


IF MORE TO GENERATE 


Coe ig REGISTER 


FIND THE VECTO 
OP he R THAT ND Aone S FOUNC. 
THe SHOW ZERO 


{DISA BL CONT. SW. 
ENTERED BY NON-EXISTANT TIME-OUT. 
:RETURN TO MAINSTREAM 


;SET IOT TRAP PRIO TO 7 
:SET oT TRAP VECTOR 
:SET SOFTWARE POINTER 
;FLOATING VECTORS START HERE. 


DZDNG 


DZOMG.P11 


Be Sa R UR ROR RO RN NRO RN 


1644 


oO OOOOOOOOOKO0O00000 

et ee ee ee 
rururorororurury 
an ciecinetanees at ak 
2NEHEVFE 


SSS UAT RNS 


012316 
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012701 
010120 


000302 
000004 
001000 


001306 
001246 


000012 
Ole2Se 


001600 


le1111 
001400 


oo00de 
O122Se2 
005300 
000010 


000007 
012254 


170777 
ooo00e 


012172 


166712 


166706 
166704 


AB8248 


001246 


177776 


000004 
000006 


177776 
000002 


000002 
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1$: 


es: 


73: 


6$: 
3$: 


4§: 


5$: 


BRLYL: 


INTTY: 


PAGE: 0049 
#302, R1 :PC OF IOT INSTR. 
Ri, (RO)+ : START FILLING VECTOR AREA 
CROSS (R1)+ iW TH 2 15} at +R1 
R1, #100 a 
ARacty, TEMP BR OAE HORE onaLtY a 
TEMP 1 sng OUT A BIT. 
JRY ie Is. inex” REGISTER 
BRLIL RY, PS 
Aten 
te 8 (RI) ;SET ROMI 
#121111. 6¢ RI) :PUT INSTRUCTION IN PORT 
SBITSIBETE, ( , (RL) sFORCE AN INTERRUPT 
-2 POR TIME TO INTERUPT 
#2,R4 get NEXT LOWEST PS LEVEL 
BRLVL(R4) , PS crave NEXT ah OWER LEVEL IN PS 
#5300, 2(R2) : NO INTERUPT ASSUME 300 AT LEVEL S AND FIX DMC11 
(R1) ; CLEAR ROMI 
#10,Re2 POP SOFTWARE POINTER 
os “KEEP GOING 
(SP), 2(R2) GET VECTOR ADDRESS 
#7, 2lR2) :C 
BRLVL+2(R4),RS ;GET BR LEVEL OF OMC11 
RS ;SHIFT LEVEL 4 PLACES. 
RS HE LEFT FOR THE 
RS STATUS TABLE 
#170777, RS CLEAR UNWANTED BITS 
Ro,2(Re) sPUT BR LEVEL IN. STATUS TABLE 
438, CP) Cer F AS en 
PC ALL DONE WITH “AUTO SIZING” 
LEVEL 0 
LEVEL O 
LEVEL 4 
LEVEL § 
* LEVEL : 
‘LEVEL 7 
aTKCSR WAIT FOR DONE 
aiKoge, R3 :PUT CHAR IN R 
aT PCS WAIT UNTIL PRINTER IS READY 


a ae {RACK GFE LOWER CASE 
PC TURN 


LOY 
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1663 
BS 1 61100 
S Oi2320 000000 ll ROMMAP: 0 ;POINTER TO HI OR LO SPEED MICRO-CODE 


01200 
1667 Cl2322 01300 LOMAP: ;LOW SPEED (REMOTE) MICRO-CODE 


a2 
i 


bb bb be 
Oru £cwu-OwnN 


RATA 
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ned fac OER ERPR Te 10:08 TABLE OF CONTENTS 
MACRO DEFINITIONS 
REVISION 00 
FEBRUARY 25, 1975 
DS Ol 
NEW CSR BOARD CHANGES 
HARVEY M. SCHLESINGER 
COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 
MICRO INSTRUCTION DEFINITIONS 
BRANCH INSTRUCTIO. 3 
INSTRUCTIONS 


XED BRANCH 
MOVE INSTRUCTI 
INPUT/OUTPUT ASSIGNMENTS 
PROTOCOL DEPENDANT 


MACROS 
DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 
VERSION OOA FEBRUARY 26,1975 


HARVEY M. SCHLESINGER 
COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 


VERSION 008 MARCH 17,1975 
CSR AND MICROPROCESSOR CHANGES 


VERSION OOC NOVEMBER 6, 1975 
RETRANSMISSION CHANGES 


VERSION OOD DECEMBER 3, 1975 
TRANSMIT DONE CHANGES 


THE LATEST MODIFICATIONS WERE ADDED ON: 
OCTOBER 13, 19 


1976 
THIS VERSION WAS USED 10 BLAST THE FIRST 
RELEASE ON OCTOBER 

HICROPROCE SSOR MAIN “RénoR ASSIGNMENTS 


SCRATCH PAD ASSIGNMENTS 
INIT--INITIALIZATION ROUTINE 
IDLE--PROGRAM IDLE LOOP 
---~ BASE SERVICE ROUTINE 
NIDLE@---NO CSR ACTIVITY STATE 
INWAIT---WAIT FOR RQI TO CLEAR 
OUTINT---SET UP oN pie [RDYO) 
OUTWAI--WAIT FOR RDYO TO GO AWAY 
CTLSRV--CNTL I SERVICE 
TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
SS _ SERVICE 


CHARACTER 
RCVB--ROUTINE TO HANDLE F 2 ytd: OF COUNT FIELD 
RUB OORCUT IE 1 TO HANDLE SE HERO TER OF MOERED BE SCACES SELECT AND FINAL 
INE 10 HENDLE rite OF TRUMBERED MESSAGE 


RCVG--ROUTINE TO TCNORE crc 
RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


ee mm eee ee oe a er ee ee ee 
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DDCNEW. MAC 


1056 
1063 


a ee 
gt og 
wi =O LS 
“Je SM Ne OO 


SPs ab ted 


NXMERR 


21-APR-77 10:08 TABLE OF CONTENTS 


RCVKO1--ROUTINE TO HANDLE FIRST BYTE ODD RECEIVE 
i SE ever one 


ena he 7 “FIELD, et AND FINAL 


RcVS--U 19--URTLPBERED NESeACE- SROMBER rie 
FCVN-—PROCESS CRC4--END_OF DATA MESSAGE 


--PROCESS RLD 
TMTDA-- mba TAL DISPATCH ROUTINE 
T_CHARAC 


TMTE--NUMBER D 

TMTF--NUMBERED MSG ADDRESS FIELD 

TF 1-NUMBERED MSG 

TMTH--ROUTINE TO OUTPUT pare CHARACTERS 
UNNUMBERED TYPE FIELD 


TMTI--SE 

TMTJ--SEND SUB-TYPE FIELD 

TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
UNNUMB MSG 


TMTL-- 
TMTMN--UNNUMB_MSG--STATION ADDRESS 
TIMSRV--TIMEOQUT ROUTINE-~ EP 
SNDACK--ROUTINE TO SEND AN ACK 
P_ HANDLER 
START HANDLER 
STACK HANDLER 
---NON EXISTANT MEMORY 


HANDLER 
SELQSY--ROUTINETOCHECK SELECT AND GSYNC AND DIDDLE LIE STATUS WORD 
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-TITLE DMC-11 ee INSTRUCTIONS 
.SBTTL MACRO DEFINITIONS 


’SBTTL REVISION 00 
‘SBTTL FEBRUARY 25, 1975 


.SB 

-SBTTL REVISION 1. 

“SBTTL MARCH 18,1975 

“SBTTL NEW ese Ae hae CHANGES 
“SBTTL HARVEY M. SCHLESINGER 


“SBTTL COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


DNC - 
DAC 


PRON torr bb DORON E CoA DED TORU 2 Coturs Eaub0d OrUT ee Cora 6: 


S7 


. MAC 


MICROPROCESSOR © aaa 


21-APR-77 


COS 


MACY11 30(1046) 11-JUL-77 12:18 PAGE 1 PAGE : 


COPYRIGHT 1975 ordTTAL EQUIPMENT CORPORATION 


NEW=0 
; MICROPROCESSOR Ing hee Doe WORD DEFINITIONS 


TOMP=1 
IBUS= PaO ie 
IMM=0 : SOURCVE “a eeDIATE 
MEMX=40000 : SOURCE 
BRX=60000 : pe 
BR=60000 : Ba 
2 ; E 
= ; HAL OAD MAR LO 
INCMAR= 14000 ?MA-INCREMENT MAR 
Pye 1000 OES EXTENDED I 
She years 1400 ioe eT ENIET BR LEF 
T= ;DEST-WRITE OUT 
WRMEM=2400 :DEST-WRITE MEMORY 
SPX=3000 :DEST-WRITE SP 
SPBRX=3400 :DEST-WRITE SP AND BR 
; FUNCTIONS 
SELA=200 ;FUNCTION-SELECT A 
SELB=220 *FUNCTION-SELECT B 
= :FUNCTION-A OR NOT B 
AANDB= :FUNCTION A AND 8 
= :FUNCTION-A OR B 
ORB= ; FUNCTION A XOR B 
SUB=340 : SUBTRACT 
SUBTC=360 cee TWOS COMPLEMENT SUBTRACT 
ADDC=20 A+B+CARRY 
SUBC=40 'a-B- C 
INCA=60 INCREMENT A 
Ac=100 "A PLUS CARRY 
AA=120 :A PLUS A 
AAC=140 :A PLUS A PLUS C 
DECA=160 !DECREMENT A 
“END FUNCTIONS 
PAGE 1=4000 
PAGE2=10000 
PAGE 3=14000 
CCOND=1000 sCONDITION C 
2COND=1400 ‘CONDITION 2 
ALCOND=400 : ALWAYS 
ON= :CONDITION BRO 
BRICON=e400 : ITION BRI 
BRYCON=3000 :CONDITION BRY 
BR7CON=3400 : CONDITION BR7 


oos4 
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a2 
G-- 


wo 
“I 


MAC = 21 -APR-77 10:08 MICRO INSTRUCTION DEFINITIONS 
70 -SBTTL MICRO INSTRUCTION DEFINITIONS 
a .SBTT BRANCH INSTRUCTIONS 
z3 109000 sump=100000 ; JUMP OP CODE 
79 
94 ; 
8g ; 
34 : 
99 ; 
s : 
114 ‘ .SBTTL INDEXED BRANCH INSTRUCTIONS 
i20 : 
12s : 
130 : 
13s ; 
140 : 
14S $ 
180 .SBTTL MOVE INSTRUCTIONS 
ibe oocoos MOVE=0 :MOVE OPCODE 
158 ; 
163 : 
168 : 
173 ; 
178 . 
197 : 
3¢ ; 


rote 


Hot a the es Sang +A er 
iho 


SE 


EQS 
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DMCNEW.MAC § 21-APR-77 10:08 INPUT/OUTPUT ASSIGNMENTS 
38 -SBTTL INPUT/QUTPUT ASSIGNMENTS 
199000 iy ON=0+ iN SR 
spo 100020 ayeet IRPRINERCE REGISTER 
262 100040 pcON=40+ 100000 ‘OUT CONTR 
263 100060 UBADDR=60+ 100000 ; UNUSED 
264 100100 PORT I= =100+1 100006 CSRY 
265 100120 PORT2=120+ 100000 CSRS 
266 100140 PORT3=140+100000 :CSR6 
267 100160 PORT4=160+100000 5 CSR 
268 100200 =200+1 NPR CONTROL 
269 190220 UBBR=220+ 100000 :BR( INTERRUPT ) CONTROL 
so vein tee INET way HICH BYTE 
272 000140 OBAL=14 ‘OUTPUT BA LOW 
273 000160 I0BA2= ;QUTPUT BA HIGH BYTE 
74 000100 IIBAL=1 ‘INPUT BA LOW BYTE 
75 000120 IIBAC=1 INPUT BA HIGH BYTE 
276 0002 CVDAT=200 “RECEIVE DATA 
277 0002 TMTCON=220 !TMTR CONTROL 
278 000240 RCVCON=240 ?RCVR CONTROL 
273 60 M=2 ?MODEM CONTROL 
280 0 = ; SYN REGISTER 
281 900320 LNOSW=320 LINE NUMBER SWITCH 
252 000340 6M873=340 ‘Ma? ADDRESS 
283 000360 LUMAIN=360 LINE UNIT MAINTAINENCE 
284 ;OBUS ASSIGNMENTS 
28S “EXTENDED OBUS 
Ogg oo00000 SINCON=0 : IN CONTROL CSR 
oa Bo00oe SocoN=e UT CONTROL CSR 
299 000003 OUBADD=3 : UNUSED 
230 900004 OPORT l= CSRY 
291 o0000s OPORT2=5 : CSRS 
292 000006 OPORT3= :CSR6 
293 000007 OPORT4=7 :CSR7 
294 999010 ONPR=10 ?NPR CONTROL 
295 000011 OBR=11 !BR CONTROL 
296 -UNEXTENDED OBUS 
297 ooo0g2 buTOAI=e2 ;OQUTPUT DATA LOW BYTE 
298 900003 OUTDAZ=3 :QUTPUT DATA HIGH BYTE 
BSS 000006 OBAI= :QUTPUT BA LOW BYTE 
300 000007 OBA2=7 ;QUTPUT BA HIGH BYTE 
301 000004 IBAl= s INPUT BA LOW BYTE 
IBA2=S ; INPUT BR HIGH BYTE 
203 000910 TMTDAT=10 MTR DATA 
394 000011 OTMTCO=11 'TMTR CONTROL 
305 000012 ORCVCO=12 =RCVR CONTROL 
306 009013 OMODEM=13 :MODEM CONTROL 


SY 
30 000017 OLUMAN=17 ;LINE UNIT MAINT. 


OMC-11 MICROPROCESSOR INSTRUCTIONS MACY11 30(1046) J1-JUL-77 12:18 PAGE 3-1 PAGE: 0057 
DMCNEW. MAC 21-APR-77 10:08 PROTOCOL DEPENDANT MACROS 


319 .SBTTL PROTOCOL DEPENDANT MACROS 


350 ewer, MICPC=177777 :INIT MICRO PC 


GOS 


DMC-11 MICROPROCESSOR INSTRUCTIONS MACY11 30(1046) 11-JUL-77 12:18 PAGE S PAGE: 0052 
LOW. MAC 13-OCT-76 14:33 DMC11 DOCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

3$3 .SBTTL DMC11 DDCMP MICRO CODE ASSEMBLED FOR USE WITH THE M&20: LINE UNIT 

3$4 000000 LOW=0 


355 209900 $LOW=0 


pred bo ip ib co A eee 


359 


HOS 


Hoey BO A ONO ko kote ASSEMBCEO FOR USE” WITH THE M@2O1 LINE UNIT ra 


TITLE DMC11 DOCMP PROTOCOL IMPLEMENTATION 
- IDEN NT /VOOO1/ 

387 TL VERSION GOA FEBRUARY 26,1975 

-SBrTL HARVEY M. SCHLESINGER 

; TIL COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 


-SBTTL VERSION O08 


SBTTL CSR AND RICROPROCESSOR 1 AARGES 

"SBTTL VERSION OOC NOVEMBER 6, 1975 
-SBTTL RETRANSMISSION CHANGES 

‘SBTTL VERSION OOD DECEMBER 3.1975 

-SBTTL TRANSMIT DONE CHAN 

-SBTTL THE LATEST MODIFICATIONS WERE ADDED ON: 


d OCTOBER 1 
“SBTTL THIS VERSION WAS ase0 T0 BLAST THE FIRST 
"SBTTL RELEASE ON OCTOBER 13, 1976 


00s3 


OMC11 DDCMP PROTOCOL IMPLEMENTATION 


DOCNEW. MAC 21-APR-77 10:08 


000173 


MACY11 30(1046) L1-JUL-77 12:18 PAGE 6-1 PAGE : 


MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


.SBTTL_ MICROPROCESSOR MAIN MEMORY + 1S eae 
ae sa OF ype ta Se” sete — ORY 


Eoean 


REPST=REFSR+1 


TYPTAB=PRTST+1 


TYPSTT=TYPTABt2 ; 


P11=0STA 
ISP l2= ePiisi- 


INCONS=ISP12+1 


ie int o-= pre ‘ 


sREPS ee 


Nas my BAYS CUMUL . 


; NAKS-DA 

; NAK NT oN UFFERS 

NA NT BAD HEADER 
SENT BAD DAT 


REPS RECD cus, 
ORE TABLE BASE ADDRESS 
‘START OF PUT cH a RECY DONE 


nun vpolnteRn Rec 


; - 8 


;START OF eta CHAIN---NEXT TMT DONE 
‘LAST TRANSMITT 

?END OF TRANSMIT CHAIN 

; TRANSMIT LINK “. 

§ ry ” #2 


; TYPE FIELD 
Ntwoe OE BIT 1 OF SPIO 
; IMAGE OF SP11 


i] YPE T TABL E--- 


;72 TYPE TABLE REP 
:73 NAK 


:74 “START 
:75 "STACK 


Pa rtTes =TYP T1835 


O40 sTOTke POINTER 


:SP12 IMAGE 
:IN CONTROL CSR IMAGE 


0069 


JOS 
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437 74 Arete +1 CV T 

4 Bobe4d RAvINTzovg +) iREXT INTERRUPT POSiTION 

439 000241 NXTSPNXTINT#+1 

440 0002e4e INTSTK=NXTSP+1 iEMack of INTERUPTS 


441 p00400 MMEND=40C :MAIN MEMORY END 


OMC11 DOCMP PROTOCOL IMPLEMENTATION 
DOCNEW. MAC 10:08 


21-APR-77 
443 
44y 000000 
_ 000001 
a8 
448 
S45 
4 
451 
4S2 
453 
4S4 ocoo00e 
45S 000003 
SSE ocooo4 
457 000005 
4 000 
45S 000007 
460 000010 
461 
462 
463 
4EY4 
465 
45 
467 
468 
4i9 
470 0000 
471 000012 
472 000013 
473 000014 
474 000015 
475 000016 


476 000017 


MACY11 30(104 


SCRATCH PAD ASSIGNHEN 


KOS 


11-JUL-77 12:18 PAGE 6-3 


.SBTTL SCRATCH PAD ASSIGNMENTS 
SPO=0 ;SPO0---SCRATCH REGISTER 
SPi=1 rn Tey TATUS WORD 
f ni SELECT (UNUSED) 
3 NPE RECEIVED i WHI : iNT on Maa MODE 
H1a-- Qh fced "eb st 
ter CT ERROR 
SP2=2 :SP2--- a POINTER 
SP3=3  ;SP3---RECEIVE STATE POINTER 
Seid SBS FEEL ees 
SPb= t Opp--— T T Pec 
SP7=7 ;SP7---END TRANSMIT ADDRESS 
SP10=10 ;SP10---LINE STATUS WORD 
;BIT ASSIGNMENTS 
:BITO- PEND 
;BIT1--MESSAGE_ TN PR PROGRESS 
Ee et AeT RECEIVED 
iB Tae- LEAR ily ON END 
:BITS--START 
;BIT6--HALF oP LEX 
;B1T7--OK T 
SPli=11 :SP11---R F erate 
SPl2=le jSPle---N FIELD 
slit ils ey 
SP1S=15 $b e-- Fhe FR OBER OF ONE SECOND TICKS 
SP16=16 :SP16---POINTER TO TMT LINK COPY IN MAIN MEM 
SP17=17 :SP17---LAST MESSAGE ACKNOWLEDGED 


em me mee ee tee - om oe ewe 


PAGE: 


0062 


ee 
— 


LOS 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 113 -JUL-77 12:18 PAGE 6-4 PAGE: 
MAC orc ae 10:08 INIT Sey arta Parton STINE 
.SBTTL INIT--INITIALIZATION ROUTINE 
ZEROS MAIN MEMOR 
: LOOPS WAITING FOR CEIVE DATA(BOOT?) 
OR FOR Ror 19 BE SE 
;WILL ACCEPT ONLY BASE FORMAT. ALL OTHERS WILL RETURN A PROCEDURE ERROR 
cones AT T INITIALIZATION --- THE HARDWARE CLEARS THE BR AND MAR 
012322 INIT: ep! BR, SELB, SPO ;CLEAR SPO 
( oo0000 MICPC=MICPC+1 
(1) 012322 063220 «MOVE! SPX! BR! SELB! SPO> 
487 012324 SP BR, SELB, SP3 PAGE ONE TRANSFER ADDRESS 
(1) 000001 MICPC=MICPC+1 
(1) 012324 063223 «MOVE! SPX! BR! SELB! SP3> 
488 012326 SP BR, SELB, SP17 :CLEAR SP17 
(1) oo0002 MICPC=MICPC+1 
(1) 012326 063237 «MOVE! SPX! BR! SELB! SP17> 
489 012330 OUT BR. <SELA! OINCON> ZERO THE IN CONTROL CSR 
(1) 000003 MICPC=MICPC+1 
(1) 012330 061200 «MOVE! HROUTX2 BR! « SELA‘ OINCON? 
490 012332 OUT BR, <SELA! OOCON> ;ZERO THE OUT CONTROL CSR 
(i) oo0004 MICPC=MICPC+1 
(1) 012332 061202 MS ET HAOUTX!BR! <SELA! OOCON) > 
491 012334 SP IMM, 370, SP10 ;WRITE S ONE BITS TO THE HIGH ORDER 
(1) oo0005 MICPC=MICPC41 
(1) 012334 603370 <MOVE ! SPX! IMM! 370! SP10> 
492 ;BITS OF SPIO 
493 012336 cs: SP BR, AA, SP10 ‘SHIFT SP1O LEFT SETTING CARRY THE 
(i) 000006 MICPC=MICPC+1 
(1) 012336 063130 MSE T SPX? BRE AR! SP10> 
494 :FIRST S TIMES THRU THE LOOP 
495 012340 MEMINC BR, ADDC!SP3 ‘WRITE A ONE TO THE FIRST 5 MEMORY 
(1) 000007 MIC Comers] 
(1) 012340 076423 CMOVE ! WRMEM! INCMAR! BR! <ADDC! SP3> > 
496 sLOCATIONS AND ZERO THE REST 
497 012342 SP BR, INCA, SPO INCREMENT COUNTER 
(1) 900010 MICPC=MICPC+1 
(1) 012342 063060 <MOVE ! SPX! BR! INCA! SPO> 
498 012344 2 10$ ;ALL DONE 
(1) 000011 M CPC=MICPC+1 ee 
(1) 012944 101413 UMP! ZCOND! < 10S-INIT&83000#4> ! < 10$-INIT877772>> 
499 012246 aL WAY $ Ss ;KEEP GOING 
t) l ODM CUR! ALCOND! ~INIT83000#4> ! «S$ INIT8777/ 
15328 10S: SPBR i, oA as F THE BR AND SP1 
(1) 000013 aTePCaNICPCHI” 
(1) 012350 003401 <MOVE ! SPBRX! IMM! 1!SP1> 
S01 012352 SP BR, SELB, SP11 ;WRITE A 1 TO SP11 
(1) 000014 MICPC=MICPC+1 
(1) 012352 063231 cHOV PET SPX" BR! SELB! SP11> 
S02 012354 : Fice meres SELB, SP12 ;WRITE A 1 TO SPl2 
(1) 012354 pego4s gr (4d I 
S03 012356 (OMA IMM, PRTST :POINT MAR TO UNNUM MSG SKELETON 
( Ole MICPC=MICPC+1 


000 
012356 010lte <MOVE!LDMAR! IMM! <PRTST8377> > 


DNC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J1-JUL-77 12:18 PAGE 6-S PAGE: O064 


DOCNEW.MAC  21-APR-77 10:08 INIT--INITIALIZATION ROUTINE 
S04 012360 PSTATI NIDLE2 ;WRITE PORT IDLE STATE 
(1) 012360 MEM INC. IMM, <<NIDLE2-INIT&777/2> 5 
(2) 000017 NIC 1cPC41 
(2) 012360 016520 MOVE ! WRMEM! INCMAR! IMM! <<NIDLE2-INIT8777/2>>> 
SOS 012362 BRURT E IMM 226 ;WRITE SYNC TO MEMORY 
(1) 000020 MICPC=MICPCS | 
(1) 012362 000626 <MOVE?WATEBR? IMM? <226) ) 
S06 012364 . OUTPUT BR,SELB'SYNC § ;LOAD THE SYNC REGISTER 
(1) 000021 MICPC=MICPC+1 
(1) 012364 062234 <MOVE! WROUTIBR! <SELB!SYNC> > 
507 012366 MEMINC IMM.3 ; REP 
(1) oo0022 MICPC=MICPCH 
(1) 012366 016403 (MOVE! WRMEM! INCMAR! IMM! <3>> 
S08 012370 ‘ ricpcenTone IN, 2 : NAK 
(1) 012370 Speags ct 
S09 012372 se MEMX! INCMAR, SELB, SP1S :SET STARTING COUNT 
(1) oo0024 MICPC=MICPC#1 
(1) 012372 057235 <MOVE ! SPX! MEMX! INCMAR! SELB! SP15> 
Si0 012374 MEMINC IMM.6 ; START 
(1) 000025 NICPC=MICPC?1 
(1) 012374 O16406 VE RWRMEN? INCMAR! IMM! <6) 
S11 012376 bi i Can : STACK 
(1) 000026 MICPC=MI La 
(1) 012376 016407 VEURHER! INCHAR! IH 7>> 
Si2 012400 s ACK 
(1) ? ieee ach 
(1) 012400 nyt En! NCMAR! IMM! <1>> 
S13 O1e4de MM, STC sLOAD ADDRESS OF LAST TMT CHAIN 
(1) gewge Broo aretha MM! <STC8377)> 
S14 1594 MEMING nn TNL ;STORE ADDRESS OF FIRST TMT LINK 
(1) 000031 MECPCeMIGPCH 
(1) 012404 016473 CHOVE URVER? ENCNAR! TPM! TALL) > 
S1S 012406 MEMINC 
(1) 000032 MICPC=MICP PCH 
(1) 012408 016473 <MOVE ! WRMEM! INCMAR! IMM! <TML1>> 
Sig 012410 MEMINC IMM TML1 
1) 000033 NICPC=MICECH 
(1) 012410 016473 MOVE? WRMEN? TNCMAR! IMM! <TMLL> 
S17 Oole4le LOMA IMM. SRC :LOAD ADDRESS OF LAST RECV CHAIN 
(1) 000034 MICPC=MICPCH1 
(1) 012412 O10022 <MOVE !LDMAR! IMM! <SRC8&377> > | 
S18 0120414 MEMINC IMM RCL ;SET UP ADDRESS OF FIRST RECY LINK 
(1) 000035 MICPC=MICPC41 
(1) 012414 O16425 <MOVE ! WRMEM! INCMAR! IMM! <RCL1>> 
519 012416 MEMINC IMM RCL 
(3) 000036 MICPC=MICPC? 1 
(1) O12416 016425 MOVE ! WRMEM! INCMAR! IMM! <RCL1>> 
S20 Ole420 MEM MINC Inn RCL 
(1) 000037 MICPC=MICPC 
(1) O12420 016425 <MOVE ! URRER? Enon! Tm! cRCLL>> 
S21 Ole4e2 LDMA Inn N XTINT ;ADDRESS OF NEXT INTERRUPT POINTER TO MAR 
(1) oooc40 MICPC=MICPC 
(1) Ole4¥22 O10240 CHOVE!LORRR' TM cWATINT8377>> 
See Ole4e4 MEMINC IMM, INTSTK s INITIALIZE NEXT INTERRUPT POINTES 


NOS 


ONC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-6 PAGE : 
DOCNEW.MAC  21-APR-77 10:08 INIT--INITIALIZATION ROUTINE 

(1) po004 MICPC=MICPC+1 

523 oes — cHOvE 9 gear 2 INITIALIZE INSERTION POINTER 

1 3 N 

4 pogo RYcecent 4 

(1) ol2426 4 VE! WRMEM! IMM! < INTSTK> > 

S24 012430 SRURT — IMM ;WRITE THE RUN BIT TO THE BR 

(1) 000043 MICPC=MICPCS1 

(1) 012430 000600 <MOVE POT UATEBR! IMM? <2U0>> 

Ses 012432 OUT MTEE a SELB! ONAL ;WRITE THE RUN BIT TO MAINT CSR 


vino 
bb 
-_ — 


oooo44 
012432 Oble2l COVE! WROUTX!BR! (SELB! OMAIN > 
;FALL INTO IDLE LOOP 


84 
A= 


Boe | 


v—_e 
~~ 
— 


oe ee £ oe Cee 


— te 


$--9--9--9n-8 
FOCAOCE 


me 
os b= 5 pe 
i hd 


012454 


000051 
063222 
020640 
0000$3 
167203 
oocos4 
010ibe 


000055 
140620 


B06 


MACY11 30(104%6) J1-JUL-77 12:18 PAGE 6-7 PAGE: 
IDLE--PROGRAM IDLE LOOP 
.SBTTL IDLE--PROGRAM IDLE LOOP 
PROGRAM I . 
; DISPATCHES GPPROPRIATE SERVICE ROUTINES 
‘USES STATE POINTERS FOR TMT,RCV,CSR ACTIVITY 
IDLE:  @BRWRTE BR, <SELA!SP1O> ;READ TRANSMIT STATUS WORD FROM SPIO TO BR 
MICPC=MICPC+41 
(MOVE! WRTEBR! BR! <SELA!SP10>> 
BRI TMTDA :IF DATA TO SEND-- BRANCH 
MICPC=MICPC+1 
< JUMP! BRICON! < TMTDA-INIT&3000#4> ! <THTDR=INIT8777/2)> 
BRO TMTDA :IF DATA TO SEND-- BRANCH 
MICPC=MICPC+1 
« JUMP? BROCON! < TMTDA-INIT&3000#4> § < TMTDA-INIT8&77772>> 
ALWAYS Il 
MICPC=MICPC+1 
OTUMP!ALCOND! <I1-INIT&3000#4> ! <I1-INIT877772>> 
XEXIT: §P BR, SELB, SP2 
MICPC=MICPC+1 
(MOVE ! SPX! BR! SELB! SP2> : 
Il: BRWRTE IBUS RCVCON ;READ LINE UNIT RECEIVE CONTROL WORD 
MICPC=MICPC+1 
(MOVE! WRTEBR! IBUS! <RCVCON) > 
.BRY —_ BR, SELA, SP3! PAGE! ;BRANCH BASED UPON RECY STATE 
MICPC=MICPC+1 
<JUMP! BRYCON!BR!SELA!SP3!PAGE1> 
I2: LOMA §—sIMM. PRTST sADDRESS PORT STATE 
MICPC=MICPC41 
<MOVE! LOMAR! IMM! <PRTST8377>> 
-ALWAY MEMX.SELB,O ; INDEX 
MICPC=MICPC+] 
«JUMP! ALCOND! MEMX! SELB!0> 


O0bE 


te 
4 
3 


A 


38 


z 


3 ok 82 2% RE BR RR 


A betatest yr 
be te 
dl ed rvs) 


——_ ee 
wwe Lew w 


oe Woe 
00 00 CoO 00 00 00 OO 
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— — 
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— 
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, Nees 0s eee oe 
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8 
2 


SRV---- BASE SERVICE ROUTINE 


3 
5 


587 1 8 Basshy---- BASE SERVICE ROUTINE 
BASSRV: PSTAT 
MEM ye Ee NIDLE2-INIT8777/2)> 
po00ss niceost cect 

«MO 1 IMM! <<NIDLE2-INIT8777/2> >> 

:CLEAR TO MAR SO IT POINTS TO BASE POINT 

000057 MICPC=MICPCH1 
010017 (MOVE ! 1 IMM! <BASE8377> > 

MEMINC 1BUS PORT ;READ CSRY 
000060 MICPC=MICPC 
136500 «MOVE ! pre 

Me HIN, :READ CSRS 
00006 1 C 
136520 «MOVE! DAPER! Incwoa TeUs! <PORT2> 

MEM IBUS, PORT 
000062 MICPC=MICPC+1 
122560 (MOVE! WRMEM! IBUS! <PORT4> > 

SP IBUS, INCON, SPO :READ INPUT CONTROL CSR 
000063 MICPC=MICPC+1 
123000 <MOVE SPX? IBUS# INCON! SPO? 

BRWRTE IMM, 100 ;CLEAR THE BR 
000064 MICPC=MICPC41 
000500 (MOVE! WRTEBR! IMM! < 100>> 

T BR. <AANDB! OINCON> :CLEAR THE INCONTROL CSR 

000065 MICPC=MICPC+1 
061260 (MOVE ! WROUTX! BR! <ARNDB! OINCON> > 

BRWRTE IMM, 120 ; MASK FOR HDX AND DTS 
000066 MICPC=MICPCH1 
000520 (MOVE! WRTEBR! IMM! < 120>> 

OUTPUT BR, «SELB! OMODEM> 
000067 MICPC=MICPC+1 
062233 «MOVE! TROUT! BR! <SELB! OMODEM> > 

BRURTE MEMX. SELB :READ SEL& 
000070 MICPC=MICPC+l 
040620 (MOVE! WRTEBR! MEMX! «SELB > 

BRY RESUME SIF SET RESUME 
900071 MICPC=MICPC+1 
103100 CTURBTBRICON! (RESUME -INIT83000#4> ! <RESUME-INIT87772> > 

LOMA IMM. T :LOAD ADORESS OF TYPE FIELD 
000072 MICPC=MICPC41 
010153 (MOVE !LOMAR! IMM! <T8377>> 

MEMINC IMM.6 WRITE START TYPE TO MEMORY 
000073 MICPC=MICPC41 
016406 (MOVE! WRMEM! INCMAR! IMM! <6>> 

MEM IMM. 300 WRITE SELECT AND FINAL TO MEMORY 
000074 MICPC=MICPCH1 
002700 (MOVE ! WRMEM! IMM! <300>> 

SP BR, DECA, SP1 TURN OFF INIT MODE 
000075 MICPC=MICPC+1 
063161 <MOVE ! SPX! BR! DECA! SP1> P ~ 

BSI: TE IMM, 241 sSET OK TO SEND,STARTMODE AND UNNUM PENDING 

000076 MICPC=MICPC+1 
000641 (MOVE! WRTEBR! IMM! <241>> 

ALWAYS SA3 

MICPC=MIC 


000077 PC+1 
110733 "JUMP! ALCOND! < SA3- ~INITS3000#4> ! <SA3-INITS777-2>> 


11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-9 PAGE: 0068 

21-APR-77 10:08 BASSRV---- BASE SERVICE ROUTINE 
012522 RESUME: SP IMM, SP4,4 SET UP SP4 FOR COUNTING NPRS 

pase RR Ne EC edu cru 

569 pi5256 Se BR ae 1 ;SET UNNUMB MESSAGE PENDING TO 

(1) 000101 MICPC=MICPC+ 

(1) 012524 063070 (MOVE! SPX! BR! INCA! SP10> 

570 ; TRICK TRANSMITTER CODE 

571 012526 LOMA _IMM. BASE ‘ADDRESS BASE TABLE ADDRESS 

(1) 000102 HICPC=N =MICPC41 

(1) 012526 010017 «MOVE! LOMAR! IMM! <BASE&377>> 

S72 012530 STATE FUDGE SET TMTR STATE TO ENTER TABLE UPDATE 

(1) 000103 NICPC=N ICPC+1 

(1) 012530 000736 MOVE 2WRTEBR! IMM! < FUDGE - -INIT8777/2>> 

S73 012532 ALWAYS :GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 

(1) 900104 ae CenTe 

(1) 012532 110462 MCAT AL COND! <TBO-INIT&3000#4) ! <TBO-INIT877772>> 

S74 012534 BS2: LOMA IMM. IMGIO 

(1) 000105 NICPC=MIC cpcti 

(1) Ol 010156 NOVE!LOMAR® Tht: <ING1O8377> 

575 012536 Ls MX, AORB,, SP10 RESTORE BIT 1 OF SPIO 

(1) 000106 MICPC=MIC 

(1) Ol 043310 (HOVE! SPX! NENX? AORB! SP 10> 

S76 012540 SP RENX! INCMAR, SELB, SP11 :RESTORE SP11 

(1) 000107 MICPC=MICPC+1 

(1) 012540 057231 (MOVE! SPX2NENX# INCMAR! SELB? SP 11> 

S77 012542 SP MEMX! INCMAR, SELB, SPl2 :RESTORE SP12 

(1) 000110 NICPC=MICPC#i 

(1) Oles4e 057232 MOVE ! SPX! MEMX! INCMAR! SELB! SP12> 

S78 012544 SP HEM SELB, SP17 : RESTORE SP17 

(1) 000111 MICPC=MICPC 

(1) 012544 043237 MOVE! SPX! NENX! SELB! SP17> 

S79 012546 SP BR, DECA, SP10 TURN OFF UNNUM MESSAGE PENDING AND 

(1) 900112 MICPC=MICPC+1 

(1) 012546 063170 <MOVE ! SPX! BR! DECA! SP10> 

580 ;ZERO THE BRG 

581 012550 STATE NIDLE2 ‘PORT STATUS 

(1) 900113 MICPC=MICPC 

(1) oO12550 o00520 «MOVE! WATEBR! IMM! <NIDLE2- -INIT8777/2>> 

S82 012552 SP BR, SELB, SP13 SAVE IN SP13 - NOTE THAT STATUS READ INTO 

(1) 000114 MICPC=MICPC+1 

(1) 012552 063233 A ET SPX? BR! SELB! SP13> 

583 RAM WAS TABLE UPDATE WHICH SAVED STATUS IN SP13 

584 o12ss4 SP BR, DECA,SP1 :CLEAR INIT MODE 

(1) 000115 MICPC=H MICcPt+1 

(1) 012554 063161 ROVE! SPX! 8R!DECR! SPL) 

ses 012556 BR WRTE SET OK TO SEND 

(1) 000116 MICPC=MICP Pct 

(1) 012556 000600 “MOVE ! NAYEBR! IMM! <200>> 

S86 012560 ALWAYS SA3 

(1) 000117 MICPC=MICPC+1 

(1) Gl2S60 119733 <JUMP*ALCOND! <SA3-INIT&3000#4> !<SA3-INIT$777~2>> 


EO6 
BBeRe RR MST SE PR FPTBtES “TON REGLED-SoNd cea abtivity state PASE Om8 PAGE: 0069 


58g .SBTTL NIDLE2---NO CSR ACTIVITY STATE 

S89 012562 NIDLE2: BRURTE LA'SP1] ;READ PORT STATUS WORD 
(1) 900120 MICPC MICPC+ 

(1) O12562 060601 MOVE! WRTEBR! BR! <SELA!SP1>> 

ef} —" 000121 oP eet 

(1) 012564 103220 < JUMP! BRYCON! <OUTINT-INIT&3000#4> ! <OUTINT-INIT8777/2) > 
S% 012566 SPBR _IBUS, INCON, ;READ INPUT CONTROL CSR 
(1) 000122 MICPC=MICPC+1 

(1) O12566 123460 <MOVE ! SPBRX! IBUS! INCON! SPO> 

597 012570 BRSHFT :SHIFT IT RIGHT 

(1) 912670 bo1e83 COVE! SHE TER! WRTEBR! SELB) 

S98 012572 BRY INWAT 1 ;IF RQI SET -- BRANCH 
(1) 000124 MICPC=MICPC+1 

(1) 012572 103155 < JUMP! BRYCON! < INWAT1-INIT83O00#4> ! < INWAT1-INIT8777/2) > 
599 if THE IN CNTRL REGISTER TO AVOID 
600 RACE IN MICRO-P READ/UNIBUS WRITE 
691 012574 NIDLE6: BRURTE BR, SELA!SP1 ‘READ PORT STATUS 

(1) 000125 =MICPC+1 

(1) 012574 O60601 MNOVETHRTEBRIBR! <SELA! SPL > 

606 012576 BRO 10$ 

(1) 000126 MICPC=MICPC+1 

(1) 012576 192131 < JUMP! BROCON! < 10$-INIT&3000%4 ! <108- INIT877722>) 

698 012600 SPBR _IBUS. UBBR, SPO TIMER EXPIRES? 

(1) 000127 MICPC=MICPC+1 

(1) 012600 123620 <MOVE! SPBRX! IBUS! UBBR! SPO> 

609 Ole602 BRY TI RV 

(1) 000130 MICPC=MICPC+1 

(1) Ole602 113245 < JUMP! BRUCON! < TIMSRV-INIT&3000#4> ! < TIMSRV-INIT8777/2> > 
614 012604 10$:  SPBR  _IBUS. MODEM, SPO ;READ MODEM CONTROL CSR 
(1) 000131 MICPC=MICPC+1 

(1) 012604 023660 «MOVE ! SPBRX} IBUS! MODEM! SPO> 

615 012606 BRWRTE BR, AA!SPO :SHIFT IT LEFT 

(1) 000132 MICPC=MICPt+1 

(1) 012606 060520 CHOVE!URTEBR! BR! AA!SPO>> . 
616 012610 BRY SETDSR sIF DSR SET, CLEAR FLAG 
1) 000133 MICPC=MICPC+1 

(1) O12610 103150 < JUMP 2BRNCON: <SETDSR-INITS3O00#4 ! <SETDSR-INIT8777/2) > 
617 Oleble BRWRTE BR. SELA!SP1O -READ LINE STATUS WORD 
(1) 000134 MICPC=MICPC+1 

(1) 012612 O60610 MOVE THRTEBR! BR! <SELA!SP1O>> 

618 012614 BRSHFT 

(1) 000135 MICPC=MICPC+1 

(1) 012614 001620 (MOVE! SHF TBR! WRTEBR! SELB> 

619 Olebl6 BRY IDLE START MODE 

(1) 000136 MICPC=MICPC+1 am 

(1) 012616 103045 JUMP BRACON! < 1DLE- -INIT83000#4> ! < IDLE-INIT8777/2>> 

620 012620 a WRITE BR.AA!SPI :READ PORT STATUS WORD 
(1) 000137 MICPC=MICPC+1 

(1) 012620 060521 CHOVETWRTEBR!BR! <AQ! SPL» 

bel Olebee BR1 IDLE s INIT MODE 

1) 000140 MICPC=MICPC+1 

(1) Ole622 102445 CJUMP!BRCON! <IDLE- INITS3000#4>!<IOLE-INITS777/2>> 
t22 Oiebe4 BR? IDLE sDISCONNECT ERROR ALREADY SENT 
(y) 090141 MICPC=MICPC+1 


FOG 
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SOSREM RAC Tes ee tae NIBLES = ONO OCeR activity “erate 
(1) 012624 103445 < JUMP! BR7CON! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2> > 
623 Olebeb SPBR _IBUS.MAIN,SPO  ;READ THE MAINT REGISTER 
(1) 000142 MI CPC=MICPC+] 
(1) 012626 123420 MOVE ! SPBRX! IBUS! MAIN! SPO> 
624 012630 BRWRTE BR, ADD! SPO ;SHIFT LEFT 
(1) 000143 MICPC=MICPC+1 
(1) 012630 O60400 HOVE! URTEBR! BR! “ADD! SPO> 
625 Oleb3e BRY IDLE :LU LOOP -- EXIT 
(1) 000144 MICPC=MICPC+1 
(1) 012632 103045 < JUMP! BRYCON! < IDLE-INIT83000*4> ! (IDLE - -INIT8777/2>> 
626 012634 BRWRTE IMM, 100 WRITE DISCONNECT ERROR 
(1) 000145 MICPC=MICPC$1 
(1) 912634 900500 (MOVE! WRTEBR! IMM! <100>> 
627 012636 SP BR. AORB, SP1 :FLAG ERROR RECORDED 
(1) 900146 MICPC=MICPC+1 
(1) 012636 063301 <HOVE ! SPX?BR! AORB! SPI) 
628 012640 ALWAYS ERR :MAKE A CONTROL OUT 
(1) 000147 MICPCONIEPC eT 
(1) O12640 114671 < JUMP! ALCONO! (ERRXX-INITS3000#4) ! <ERRXX-INIT8777 2)? 
629 Oleb4e SETDSR: BRURTE IMM. 277 :CLEAR DISCONNECT ERROR FLAG 
(1) 900150 MICPC=MICPC41 
(1) 012642 000677 (MOVE! WRTEBR! IMM! <277> > 
630 012644 ALWAYS CLRIDL 
(1) 900151 MICPC=MICPC+1 
‘ee 


Ci2644 1006Se2 «JUMP! ALCOND! <CLRIDL-INITS3000#4>! «CLRIDL-INITS777 2) 


OMC11 DOCMP PROTOCOL re 


DOCNEW. MAC 


~ CECE EEOCESS ECS 
1A 
ree SeBS | 


oe CTH 5 ee Lee 5 ee 
we Ue we we Bw eS WS Te we we 


PN MD ORO MD oe DOM ee Oe De ee eo Oe 
—> aera ee eal 


cred erncdiivcrtece Mires as 


roe -—oO 
> UTLI Te 


en 
Ww 
we ee ee Ue we eS 


SMa OMane 


a 


= Free Ue = 


—e 
+ 
 & 


012646 


012646 
012650 


012650 
0126S2 


012652 
0126S4 


— 


2666 
2670 


2670 
Cle67e2 


Cleb7e 
012674 


012674 
012676 


012676 
012700 


oO 00 0800 00 00 OO 


1 
1 
1 
1 
12664 
1 
1 
1 
1 
1 


012700 
01270e 
012702 
012704 


012704 
012706 


012706 


21-APR-77 | 


000152 
123400 


000153 
060520 
000154 
103557 


000155 
123400 
000156 
103566 
000157 
002SSS 
000160 
060520 
000161 
117454 
900.62 
002552 
900163 
000600 
000164 
061300 
000165 
100445 
000166 
001620 
000167 
103125 
000170 
123400 
000171 
102605 
000172 
102177 


la 
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INWAIT: 


INWAT1: 


NIDLE3: 


NIOLEY: 


007: 
INWAIT---WAIT FOR RQI TO CLEAR 

_SBTTL INWAIT---WAIT FOR ROI TO CLEAR 
SPBR _—sIBUS, INCON, SPO “READ INPUT CONTROL CSR 
MICPC=MICPC+! 
<MOVE t SPBRX: IBUS INCON! SPO? 
BRWRTE <AA'SPO> :SHIFT IT LEFT 
MICPC=MICPC+1 
(MOVE! WRTEBR! BR! (AA! SPO> > 
BR? NIQLES s INTERRUPT ENABLE HAS BEEN SET 
MICPC=MICPC+1 
< JUMP! BR7CON! <NIDLE3-INIT83000#4> ! <NIDLE3-INIT8&777 72) > 
SPBR _IBUS, INCON, SPO :READ THE INPUT CONTROL CSR 
MICPC=MICPC+] 

<HOVE! SPBRX} \ wrbenen ae - 

sREADY IN STILL SET 

MICPC=MICPC+1 

<JUMP! BR7CON! < INWAT2-INIT83000%#4> #  INWAT2-INIT&777/2> > 
PSTATE INWATI UPDATE STATE TO INPUT 

M IMM, << INWATI- -1NI78777/20$- 
MICPC=MICPC41 

CHOVETDRRER? Int cINAAT- ~INIT8777/2> >> 
BRURTE BR, AA! SPO :SHIFT CSR LEFT 
MICPC=MICPC+1 
sop eon cone ro 
MICPC=MICPC+1 

< JUMP! BR7CON! < ININT-INIT&83000#4> ! < ININT-INIT877772> > 
PSTATE INWAIT UPDATE STATE POINTER TO NO INTERRUPT GENERATED 

™ IMM IT INWAIT-INITS8777/20$— 
MICPC=MICPC41 

(MOVE! WRMEM! IMM! << INWAIT-INIT8777/2> >> 
BRWRTE 

MICPC=MICPCS | 

ROVE HRTEBR! Int? 200) 
OUT BR. AORB! OINCON :SET THE RDYI 
NICPC=MICPC41 
MOVE ! TASUTX!BR! <AORB! OINCON? > 
S 1OLE 


tnwate: 


INSRY: 


mr, 


ALWAY 
MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INITS3000#4> ! < ICLE-INIT8777/2>> 


BRSHF T ;SHIFT THE BR RIGHT 
MICPC=MICPC+1 

«MOVE! SHF TBR! WRTEBR! SELB> 
BR NIDLE6 ;RQI SET--- GO AWAY 
MICPC=MICPC+1 


<« JUMP! BRYCON! <NIOLE6- SINE TRSOODIN) tNTOLES- ~INIT8777/2>> 
SPBR IRS INCON, SPO ;READ THE INPUT CONTROL CSR 
MICPC=MICPC 
MOVE! SPBRX! IBUS! INCON! SPO> 
BRI 208 | ;--SENSE OR BASE 
MICPC=MICPC+ 


¢ net pharserinemeetslt. 2 betes 


BR 
MICPC=MICPC 
< JUMP! BROCON! <10$-INITS300084) # LOS-INITS777-2>> 
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MACY11 30(10%6) 11-JUL-77 12:18 PAGE 6-13 PAGE: 


MAC - 21-APR-77 10:08 INWAIT---WAIT FOR RQI TO CLEAR 
012710 :MUST BE BA/CC-SHIFT FOR IN OR OUT 
000173 BRR oe aIcec 
012710 001620 <NOVE TOU TBR? WRTEBR! SELB) 
O1e712 7. 8 158 
o1e712 102601 ier ACE SNE c1SS-INITS3000%4 ! $< 18$- INIT8777/2) > 
pieety ceyare Te CC TBASRV- INITS777/25" pacteicne: 
000175 Me ocemrebes i 
012714 902703 <HOVE 2HRMEM! TMM! << TBASRV-INIT8777/2) >> 
012716 oop bas mycee=m ONDE «208- ~INIT&3000#4> ! <20$-INIT8777/2> > 
012720 108: pSTAre €TL 
012720 sensi nicPes I <<CTLSRV-INIT8777/2) > 
012720 O02661 VE sDaven fe c<cTL SRV -INIT8777/2>>> 
012722 Ans 
oo00200 MLCPCOMIePC+! 
012722 100602 < JUMP! BLOND! <20S-INIT&3000%4 ! (20$-INIT3777/2>> 
012724 1S$: pSTate RBASRV 
012724 IMM. <<RBASRV-INIT8777/2>> 
000201 nicecenicectt 
012724 726 MOVE ! WRMEM! IMM! <<RBASRV-INIT8777/2> >> 
012726 20S: BRURTE BR SELAISP1 s INIT MODE 
o00202 MICPC=MICPC41 
012726 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
012730 g PROCER :IF INIT MODE--ERROR 
03 MI pc=nicr +] 
012730 ifedil < JUMP! BROCON! <PROCER-INIT83000#4> ! <PROCER-INIT8777/2>> 
012732 ALWAYS IDLE 
000204 MICPC=MICPC+ | 
912732 100445 < JUMP! ALCOND! < IDLE-INITS82000#4> ! < IDLE-INIT8777/2>> 
012734 303: BRO 358 IF BASE---PROCESS 
o00205 MICPC=MICPC+1 
012734 102207 «JU UN :BROCON! <35$-INITS3000#> ! (3S$-INIT8777/2>> 
012736 ALWAYS PRO cER 
o00206 MICPC=MICPC+1 
012736 100611 < JUMP ALCOND? < PROCER- -INIT$3000#4> ! <PROCER- INIT8777/2>> 
012740 35$:  BRWRTE BR,SELAISP! : INIT MODE? 
000207 MICPC=MICPC+1 
012740 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
Ole74e2 BRO BASSRV 
000210 MICPC=MICPC+1 
O12742 102056 < JUMP! BROCON! <BASSRV- ~INITB3000#4) !  BASSRV-INI T8777 /2)» 
012744 PROCER: BRWRTE IMM, 100 éLEAR INPUT CONTROL CSR 
000211 MICPC=MICPC41 
012744 900500 <MOVE !HRTEBR® IMM < 100> > 
012746 BR BANDE! OINCON $3 
000212 Sy tPCeNTERts 
012746 061260 CHOVETHROUTX! BR? <AANDB OINCON> 
012750 LOMA «IMM. << RTHRS+3>> : ADDRESS ERROR LINK 
000213 HICPC=MICP Pcs 
012750 010177 CHOVE!LORAR In «cRTHRS#2) 82779 
012752 MEMINC 


000214 


MeceCeMTePedi 


0072 


106 


DNC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE $-14 PAGE: 0072 
DOCNEW.MAC  21-APR-77 10:08 INWAIT---WAIT FOR RQI TO CLEAR 
(1) 01275¢ 016402 (MOVE !WRMEM! INCMAR! IMM! <2>> 
688 012754 MEM IMM, 0 
(1) 000215 NICPC=MICRC# 
(1) 012754 002400 <MOVE! M!IMM!<0)> 
689 012756 QuTeY MX SELB! OMODEM sCLEAR DATA TERMINAL READY 
(1) 000216 M ope emre c+ 
(1) 012756 042233 <MOVE! WROUT ! MEMX! «SELB! OMODEM> > 
690 012760 ALWAYS RCEXX :POST THE ERROR - FATAL 
(1) s 009217 MICPC=MICPC+1 
(1) o12760 i14S2e7 < JUMP" ALCOND! «RCEXX-INITS3000#4> ! <RCEXX-INIT8777 72> » 
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DDCNEW.MAC  §21-APR-77 10:08 OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 
6 .SBTTL OUT!NT---SET UP OUTPUT INTERRUPT [RDYO] 
693 0127 OUTINT: 
698 012762 PSTATE OUTWAIT PORT STATUS TO WAITING FOR OUT 
(1) Ole7be M Iie <<QUTWAIT-INtT877772)> 
(2) 000220 NICPCMICPCH 
(8) 012762 002654 «MOVE! TMRPER! TM! ¢cOUTHALT=INITB?77/2>>> 
701 012764 NXTINT : “ADDRESS OF NEXT INTERRUPT POINTER 
(1) 000221 LOB Mr Pea 
(1) 012764 010240 (par eatin 
702 012766 LOMA on NEXT INTERRUPT 
(1) 000222 Hi CPC=M 
(1) 012766 OS0220 RTDs tom eum 
703 012770 ion 2 BUS  OCON, SPO READ THE OUTPUT CONTROL CSR 
(1) 012770 123040 ive! ale cays 
704 012772 OUT MX! INCMAR) , <AORB! OOCON> ;WRITE THE OUT CONTROL CSR 
(1) 000224 SU EPCANT Che? 1 
(1) 012772 OSS30e2 <MOVE ! WROUTX! MEMX! INCMAR! <AORB! OOCON> > 
705 012774 LOMA MEMX. SELB ;ADDRESS LINK 
(1) 900225 MICPC=MICPC+1 
(1) 012774 OS0220 (MOVE ! LOMAR! MEMX! <SELB> > 
706 012776 BRWRTE <BR! INCMAR>, <AR!SPO> sKICK PAST LINK STATUS BYTE 
(1) 000226 MICPC=MICPC+1 
<1) 012776 074520 (MOVE ! WRTEBR! BR! INCMAR! (AR! SPO> > 
707 ie ie SHIFT CSRO O_ INAGE Lert 
¢ 
oe 013000 OUT <MEMX! INCMAR> , (SELB! OPORHL> let te Cee BYE i BR th T0 *oSR 
(1) 000227 MICPC=NICPC+1 
(1) 013000 osS224 <MOVE ! hROUTX! MENX® INCHAR! «SELB? OPORT> > 
710 013002 our CHET? TNCHAR) , «SELB! OPORTe2> ;WRITE HIGH BYTE OF BA TO CSR 
(1) 000230 MICPC=MIC 
(1) 013002 955225 CHOVE!MROLTX MEN INCHAR! SELB! QPORT2> 
711 013004 OUT MX! INCMAR , «SELB! OPORTY> ;WRITE HIGH BYTE OF COUNT TO CSR 
(1) 000231 M CPC=MICP +1 
(1) 013004 055227 CMOVE!MROUTX! MEN INCHAR? SELB? OPORT4 > 
712 013006 our MX! INCMAR> , «SELB! OPORT3> ;WRITE THE LOW BYTE OF COUNT 
(1) 000232 MICPC=MI ICP +1 
(i) 012006 055226 A eT IRSUTX!MEMX? INCMAR! SELB! OPORT3> > 
713 :###HERE IS BR? 
714 013010 BR7 PEL : INTERRUPT ENABLE IS SET 
(1) 000233 MICPC=MICPC+1 
(1) 013010 103760 < JUMP! BR7CON! <PE1-INITS3000#4> ! <PE1-INIT8777/2>> 
715 GENERATE AN INTEFRUPT 
721 013012 PINT2: 
723 013012 LOMA _ IMM, NXTINT ;ADDRESS NEXT INTERRUPT QUELE 
(1) 000234 MICPC=MICPC41 
(1) 013012 010240 “MOVE! LDMAR! IMM! <NXTINT&377>> 
724 013014 SP MX, SELB, SPO ;COPY ADDRESS FOR NEXT INT TO SPO 
(1) 000235 MICPC=MICPC+1 
(1} 013014 043220 HOVE! SPX! REM! SELB! SPOD 
72s 013016 rr al Inn, INTSTK ;ASSUME WRAP AROUND CASE 
ct) 013016 peor as ippce Bibs crntstio» . 
726 013020 BRURTE iy <<MMEND=2> > sADDRESS OF LAST INT IN STACK 
C1) 000237 MICPC=MICPC+1 


KO6 
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(1) 013020 000776 <ROVE!WATEDR! IMM! « <HREND-2) > 
727 013022 gonesg i r eh ;SHOULD WE WRAP 
(1) 13022 Cc! ) 
Sha BIS856 . YES--BRANCH 
a 013024 ye RtopcenrGbce INIT&3000#4> ! (SS. INIT877772>> 
< - = 
729 (013026 TE IMM.2 AMP EES FOR NEXT POINTER 
(1) 000242 MICPC=MICPC4I 
(1) 013026 o004O2 (MOVE! WRTEBR! IMM! <2)> 
730 013030 MEM BR ADD! SPO ; UPDATE POINTER 
(1) 000243 MICPC=MI Pe+] 
(1) 013030 O6e400 MOVE! WRNEN! BR! «ADD! SPO> 
731 013032 S$: MX j SELB, SPO :COPY POINTER TO SPO 
(1) e444 Ricpcsnscpcs +] 
(1) 013032 20 X! MEMX! SELB! SPO> 
732 013034 LOMA IMM. NXTSP ;PICK UP START OF IN QUEUE 
(1) o0024s MICPC=MICPCH1 
(1) 013034 010241 <MOVE! LDMAR! IMM! <NXTSP8377> > 
733 013036 CMP MEMX, SPO ;COMPARE TO END 
(1) 000246 MICPC=MICPC+1 
(1) 013036 040360 <SUBTC! MEMX! SPO> 
734 013040 2 10$ IF EQUAL--CLEAR INT PENDING 
(1) 000247 MICPC=MICPC+1 
(1) 013040 101651 «JUMP! ZCOND! < 1O$-INIT&3000#4> ! < 10$-INIT877772>> 
‘D _— 000250 RECPCOMTCP ESI 
(1) 013042 100445 < JUMP! ALCOND! < IDLE-INIT&3000%*4> ! cIDLE- INIT8777/2)> 
736 013044 10S: BRWRTE IMM, 357 MASK TO CLEAR INT PENDING 
(1) 000251 MICPC=MICPCH1 
(1) 013044 000757 (MOVE! WRTEBR! IMM! <357>> 
737 013046 CLRIDL: SP BR ,SP1 
(1) p002s2 MICPC=MICPC+1 
(1) 013046 063261 «MOVE! SPX! BR! AANDB! SP1> 
738 013050 ALWAYS IDLE 
000253 MICPC=MICPC+1 


ed 


013080 100445 < JUMP! ALCOND! < IDLE-INITS3000#4> !<IDLE-INIT3777/2>> 


— > 
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11 DOCMP PROTOCOL IMPLEMENTATION MACY 30104 1-JUL-77. 12:18 PAGE 6-17 PAGE: 007 
wae at MAC tee ee ae OUTWAI--WAIT POR Avs 0 GO AWAY —s 

740 .SBTTL eg ag FOR RDYO TO GO AWA 

741 013052 OUTWAI: SPBR _IBUS, OCON, SPO ; READ OUTPUT CONTROL CSR 

(1) 000254 MICPC=NICEC+ +1 

(1) 013052 123440 <MOVE ! Samy! [aust ocow seo 

742 013054 BR7 NIDLE6 :RDYO SET --GET OUT 

(1) 0002ss MICPC=MICPC+1 

(1) 013054 103525 < JUMP! BR7CON! <NIDLE6-INIT83000#4> ! <NIDLE6-INIT8777/2> > 

743 013056 BRWRTE IMM, 100 ;CLEAR CONTROL BITS 

(1) 000256 MICPC=MICPCH1 

(1) 013056 900500 HOVE !WRTEBR! IMM! < 100>> 

744 013060 BR, OOCON! AANDB 

(1) 000257 Se IcPté+1 

(1) 013060 061262 (MOVE! WROUTX! BR! <OOCON! AANDB> > 

745 013062 ALWAYS INS13 

(1) 900260 MICPC=MICPC+1 

(1) 013062 100674 < JUMP! ALCOND! < INS13-INIT$3000#4> ! < INS13-INIT8777/2> > 
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000261 
123560 


le 

000271 
o00s00 
000272 
061260 
000273 
010162 


000274 
002520 


000275 
100445 
000276 
000600 
000277 
063301 
000200 
000604 
000301 
063230 


000302 


CTLSRV: SPBR 


INS11: 


INSle: 


INS13: 


CBOOT: 


MACY11 30(10%6) li-JUL-77 12:18 PAGE 6-18 PAGE : 
10:08 CTLSRV--CNTL I SERVICE 


-SBTTL CTLSRV--CNTL I SERVICE 
BUS ;TO SPO 


I , 
SEER correo 


CHOVE! SHE TER! WRTEBR! SELB> 
BR L ; ;IF SET IS HALF DUPLEX 
MICPC=MIC 


+1 
<« JUMP! BRICON! <HOSEL-INIT&3000#4> ! <HDSEL-INIT&77772>> 
te ;MASK FOR DTR 


1cPCd1 
«MOVE !WRTEBR! IMM! < 100>> 
OUTPUT BR,SELB!OMODEM 
oa a PO aaata > 
we. pha <«SELA! SPO> ;RESTORE THE CNTL WCRD 
CHOVE!NRTEBR?OP! (SELA!SPO> 


;TURN OFF HALF-DUPLEX 


. - ;IF SET IS BOOT 
dure! BRECON! «cao0T- ee oe -INIT877772>> 


THE INPUT CONTROL CSR 
TEC cheno 


BRWRTE 
ier IMM! <100>> 
OUT BR. <AANDB! OINCON> SCLEAR IN CONTROL CSR 
NICPC=NICPC41 


'WROUTX! BR! <AANDB! OINCON> > 
x in past ;ADDRESS PORT STATE 


;ZERO THE BR REGISTER EXCEPT INT ENABLE 


LOMA 

ni Cee antCes 
MOVE! TOMPR! IMM! <PRTST8377>> 

PStaTe NIOLE2 

IMM, <<NIDLE2-INIT877772>> 

MICPC=NICPCS1 

«MOVE! a 7 ‘ga irtnaeeal -INI1&777/2>>> 


ALWAYS 
MICPC=MICPC 
JUMP! AL COND! < IDLE- INIT&3000#4> ! < IDLE-INIT&77772>> 


BRWRTE IMM, 200 :MASK FOR BOOT MODE 
MICPC=MICP Pct] 
HOVE! WRTEBR! IMM! <200) > 


SP ‘ 
MICPC=MICPC+1 

<MOVE ! SPX! BR! AORB! SP1> 
BRWRTE IMM,2 
MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <204> > 
ee BR, SELB, SP10 :IN LINE STATUS 


meres 
THGVET SPX" BR! SELB! SP1O> 
ALWAYS INS12 
MICPC=MICPC+1 


;IN PORT STATUS WORD 


;MASK FOR OK TO SEND AND LINE IDLE 


0077 


NO6 
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(1) 013126 100670 < JUMP! ALCOND! < INS12-INIT&3000#4> ! < INS12-INIT&77772)> 
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aces 


“eC “en “en. nf, orn ne tan oo, neo 
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ee ee ew we 
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so 
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TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 


oa 


07 


TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 


- SBTTL 
TBASRV: LOMA IMM, ETC ;GET POINTER TO END OF TMT CHAIN 


10S: 


20s: 


«SELB! SPX! SPD> sFIND THE LINK 
«MOVE 
MEMING IMM. 1 BUFFER ASSIGNED IN IN LINK FLAGS 
BRWRTE CTMAE INCHAR? , 6 :POINT PAST NUMBER FIELD 

;SET BR FOR ADDITION TO SFO 

(MOVE ! WRMEM! INCMAR! IBUS! <PORT1>> 
MEMINC IBUS. PORT2 
HICPC=HICPC# 
LINCHAR! IBUS! <PORT2> 


PORT4 
' INCMAR! IBUS! <PORTY> > 
PORT 


| 
auntie 
See 


5 


! INCMAR! IBUS! <PORT3> > 
SPO ;OFFSET TO NEXT TRANSMIT LINK 


ad 
SS 
5: 


% 
8 


1 
| 

T : ;LOAD BR WITH ADDRESS OF CHAIN END 
'IMM!<T>> 

C 


: 
gE 


ae 
b= OR 


m 
E 


+2 

a2 

oa 
on 


E 

1 

! IMM! <ETC8377>> 

BR, SPO ;END OF CHAIN’ 
20s ; IF YES--SRANCH 


+1 

' <20$-INIT&3000#4> ! <20$-INIT877772>> 

BR, SELA!SPO ;UPOATE THE END POINTER IN MEMORY 
! 


(SELA!SPO> > 
ie ;NUMBERED MSG PENDING MASK 
' 


eR AORB, SP10 ;UPDATE LINE STATUS 


MICPC=MICPC+1 
< JUMP! ALCOND! < INS12-INIT&3000#4> !< INS1Le- at r/o 


MEM AROUND 
MICPC=MICPC$1 
“MOVE! WRMEM! IMM! <TML1>> 


Le ee ea ee ee 


CO? 
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788 (013174 PR ;CONTINUE PROCESSING 


ALWAYS 
(1) 000325 NICPCEMICPC 
(1) 013174 100721 UMP? ALCOND! «10$-INIT83000#4> ! < 10$-INIT8777/2>> 


- 


DMC11 DOCNP PROTOCOL IMPLEMENTATION 
00 21-APR-77 10:08 


CNEW. MAC 


Booeccsg | 


—— 
— — 


Sieh etot joteh ietet letet ete 


-oV— “en: 
— >) —? 1 — 
_— — — — 


ae one “ne ae an@On- 
—s —e- — sd oe ete 
— ~~~ — — — he we ee 


“8558 
pte wee Que we 


oes Geno 
-»- Oe 
oor’ «a 


013176 
013176 
01 


013240 


brbae8 


000327 
0S3220 
000330 
016401 
000331 
136500 
000332 
136520 
000333 
136560 


000334 
136540 
000335 
010023 
000336 
o024eS 
000337 
000463 
000340 
060360 


000341 
101670 


oo034e2 
000405 


000343 
062490 
000344 
100670 
000345 
000717 
000346 
063670 


000347 
000400 
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RBASRV--RECEIVE BUFFER ADDRESS SERVICE 


DO? 


RBASRV--RECEIVE BUFFER ADDRESS SERVICE 


. SBTTL 
RBASRV: LOMA MM, ERC ;ADDRES END OF RECEIVE CHAIN 


RA: 


RA3: 


"TBs be qxesar» 


REMX. (SEL PO» sGET THE POINTER TO LINK 
SOP C=NI 
(MOVE ! oh ence poeta 
MEMING 


41 
ROVE UREN! INCNAR! IH! 1 
premise coer 


!IBUS! <PORT2> > 


EE 


3 
Bos 
m 
-_ 


! INCMAR! IBUS! <PORT3) > 
RTED ORDER OF PORT 3 AND PORTY 


OHA = IMM ERC 
MIC =nIcPct 
(MOVE!?L cs ama > 


MEM 
yi Se pt! bea 
'WRMEM! iy meee y 


MICPC=MICPC 
(MOVE !WRTEBR! IMM! <RCL7> > 


;ASSUME WRAP AROUND CASE 
;GET ADDRESS OF END OF CAHIN AREA 
;CHECK FOR END 


2 INSL2 IF EQUAL BRANCH 
MICPC=MICPC+1 

<JUMP 2 ZCOND! INS 12- ~INIT83000#4> ! < INS12-INIT8777/2>> 

BRWRTE i ;CALCULATE ADDRESS OF NEXT LINK 
MICPC=MI Bett 


(MOVE! WRTEBR! IMM! <S>> 
ADD! SPO 


MEM 
MICPC=MICPC+1 
CASVETHRMEN! BR! (ADD! SPO) > 
ALWAYS INS1e sEXIT 
MICPC=MICPC+1 
CJUMP2ALCOND! <INS12-INITB3000#4 t CINS18- INIT8777 72>) 
BRWRTE i MASK TO CLEAR START MODE AND CLR ACTIVE 
NICPC NICE c+ 


1 

VE! ee a 
SPBR SP10 :CLEAR BIT IN LINE STATUS WORD 
RrcrcenIertel 


«MOVE! es amseisiie 
BRWRTE I 

MICPC=MICPCS1 

MA SVETWATEBR! IMM! <0) 


;CLEAR BR 


EQ? 
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810 013242 SF BR, SELB, SP13 :SET NUMB MESSAGE TYPE IN SP13 

(1) 000350 MICPC=MICPt+1 

(1) 013242 063233 < 'SPX!BR!SELB!SP13> 

811 013044 STAT RCVE ;CHANGE RECEIVE STATE POINTER TO STATE 8 

(1) 000351 MICPC=MICPC+1 

(1) 013244 o00424 <HOVE :WRTEBR! IMM! <RCVB- -INIT8777/2>> 

812 013246 WAYS xIT 

(1) 000352 NI CECNICECS 

‘ i? yi3ze46 104422 ( 7 KOND? <REXIT-INIT&3000%4> ! <REXIT-INIT877772) > 

814 013250 RTHRES: BRWRTE IMM.2 

(1) 000353 MICPC=MICPCH1 

(1) 013250 090402 (MOVE! WRTEBR! IMM! <2>> 

815 013252 ALWAYS ERRXX 

(1) 000354 MICPC=MICPC+1 

i 013252 11467! <JUMP! AL COND! <ERRXX-INITS3000#4 ! <ERRXX-INIT8777/2) > 


FO? 
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830 013254 HOSEL: BRWRTE IMM, 100 ;HD MASK TO BR 
a ] 4 eet ICPCNICECH Sep] 0» 
831 $1 35e¢ SP BR é5t6 :UPDATE PORT STATUS WORD 
(1) 000356 MICPC=MICPC+1 
(1) 013256 063310 SCE ono! P10» 
832 013260 ALWAYS INSI1 
(1) 000357 MICPC=MICPC+1 
ee) 013260 100666 < JUMP! ALCOND! <INS11-INIT83000#4> ! <INS11-INIT8777/72>> 
834 013262 PE]:  BRWRTE IMM, 300 :MASK FOR INTERUPT AND VECTOR THROUGH x04 
Bouse S88 MASVENATESR 300 
é . 
83S 013264 SP IBUS . UBBR, SPO ;READ BR CONTROL REG 
(1) 000361 MICPC=MICPC+1 
(1) 013264 123220 «MOVE! SPX! IBUS! UBBR! SPO> 
836 013266 OUT BR, <AORB! OBR> : INTERRUPT 
(1) 000362 MICPC=MICPC+1 
(1) 013266 061311 <MOVE ! WROUTX! BR! <AORB! OBR> > 
841 013270 ALWAYS PINTe 
(1) 000363 MICPC=MICPC+ 
{ i } 013270 100634 CUPP AL COND! <PINT2-INIT&3000#4> ! <PINT2-INIT8777/2> > 
844 013272 HALTED: MEMADR EM6 
(1) 000364 MICPC=MICPC+1 
(1) 013272 002730 (MOVE ! WRMEM! <EM6-INIT8777/2) > 
B4S sFALL INTO ACLOW 
846 013274 ACLOW: BRWRTE IMM.2 AUSE AN AC LOW 
(1) 000365 MICPC=MICPCHI 
(1) 013274 900402 (MOVE! WRTEBR! IMM! <2>> 
847 013276 OUT BR. «SELB! OBR> 
(1) 000366 MICPC=MICPC+1 
(1) 013276 061231 MES VETHAOUTX!BR! <SELB! OBR) > 3 
e48 013300 SS: BRWRTE IBUS. UBBR “WAIT FOR IT TO COMPLETE 
(1) 000367 MICPC=MICPC+1 
(1) 013300 120620 (MOVE! WRTEBR! IBUS! <UBBR> > 
849 013302 BRI cs 
(1) 000370 MICPC=MICPC+1 pas 
(1) 013302 102767 < JUMP! BRICON! <S$-INIT&3000#4> ! <S$-INIT8777/2>> 
@so 013304 -ALWAY MEMX. SELB, PAGE 
(1) 900371 MICPC=MICPC+ 
(1) 013304 154620 < JUMP! ALCOND! MEMX! SELB! PAGE3> ; 
@51 013306 CKTIME: BRWRTE IBUS.UBBR :READ BR CONTROL REG 
(1) 900372 MICPC=MICPC+l 
(1) 013306 120620 (MOVE !WRTEBR! IBUS! <UBBR> > 
g52 013310 BRY HAL TED 
(1) 000373 MICPC=MICPC+1 
(1) 013310 103364 < JUMP! BRYCON! «HAL TED-INITS300084> ! <HALTED-INITS$777/2> > 
853 013312 ALWAYS EMI 
(1) 000374 MICPC=MICP C+ ce 
ey 013312 114732 < JUMP! ALCOND! <EM1-INITS3000#4> !<EML-INITS777/2> > 
855 013314 tBul: BRURTE  _TBUS, NPR 
1) 000275 MICPC=MICPC+ 
(1) 013314 120602 “MOVE! WRTESR! IBUS! <NPR> > 
ee 31321¢ BRO IDLE 


---.e - + +<2<-©e i -~ -_— 


GO? 
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(1) 900376 MICPC=MICPC+1 

(1) 913316 10204 < JUMP? BROCON! « IDLE-INIT83000#4> ! « IDLE-INIT8777/2) » 

857 013320 ALWAYS EC2 

(1) 000377 MICPC=MICPC+1 

(3) 013320, 114760 < JUMP! ALCOND! <EC2-INITS3000#4> ! <EC2-INIT877772) > 

se 


DNC11 DOCMP PROTOCOL ft papa 


DDCNEW. MAC 21-APR-77 1 


papa papcalitp apna 


eee De eS ow ewe Owe we OY / OY eNO we 


bs SJ Nh SP “joc” 


DOME oo Paribas ¢ o Potion so Pae@and ¢o Pant@ont («Penton s ¢ Pattants «Patna «Patan 
* pase 
ey 


_— b= eb Ne 0 Je 
wwe Ow-O~w~ we Ow Ww 


Ne we ee ee we 


“Orn 
- (e-— 
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013322 


013322 
013324 


013324 
013326 
013326 
013330 
013330 
013332 


013332 
013334 


013334 
013336 


013336 
013340 


013340 
013342 


1334 
BT 3348 
013344 
013346 
013346 
013380 
013350 
013352 
0133Se 
013354 
013354 
013356 


013356 
013360 


013360 
013362 


013322 
000377 


000400 
023200 


o004C1 
060601 


000402 
106012 


000403 
107412 


ooo404 
000601 
ooo40s 
060360 
To1748 
ea 7 
04 
000410 
060360 
000411 


10S421 


000412 
000620 


000413 
060360 
000414 
105762 


000415 
0022 le 


000416 
000757 


000417 
063270 


000420 


fi 
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ha 


RBASRV--RECEIVE BUFFER ADDRESS SERVICE 


RCVA: 


S$: 


FLUSH: 


Bs) bd ae 

BT Le RCVA- -ROUT INE To HANDLE FIRST DDCMP CHARACTER 
By eae TYPE IS NUMBERED, UNNUMBERED OR BOOT 

UP PROPRIATE STATES FOR REST OF MESSAGE. 

i3eT I READ RECEIVE CHARACTE R TO SPO 
MICPC=MIC 7 
«MOVE ! SPX! IBUS! RCVDAT! SPO> 
BRWRTE SELA!SP1 
MICPC=MICPC+1 
(MOVE! WRTEBR! BR! <SELA!SP1>> 
BRO 5 sIF INIT MODE---ONLY BOOT OK 
NICPCSNIC 


+1 
hae Taian romeo eee MODE 


;READ PORT STATUS WORD 


BR F BOOT MODE---ONLY BOCT OK 
MICPC=MICPC+1 
< JUMP! BR7CON! <S$-INIT&83000#4> ! (S$=INIT8777/2)> 
BRURT — IMM -SOH TO BR 
MICPC=MICPC$1 
(MOVE! WRTEBR! IMM! <201>> 
CMP BR, SPO :COMPARE BR TO SPO 
NICPC=MICPCS 
(SUB UBTC! BR? SP 


Z ; IF EQUAL-IS NUMBERED MESSAGE 
NSIS! en INIT&83000#4> ! RAND TO BR 772>> 


TATA EEe rm 
;COMPARE ENG TO SPO 
ae 
Raz ;IF EQUAL-IS UNNUMBERED MESSAGE 


MICPC=MICPC+1 
«JUMP! ZCOND! <RA2-INIT&3000#4> ! <RA2-INIT8777/2>> 
BRURTE, nM 22 OLE TO BR 
MICPC=MI pct 

«MOVE! WATER? IMM! <220)> 


CMP : COMPARE DLE TO SPC 
nicecentert 
<SUBTC!BR!S 3SPO ) 


2 IF EQUAL IS BOOT 
a TCPCeMTeP er! 
< JUMP! ZCOND! <BOOT-INITS3000#4) ! «B07 -INIT8777 “2? 
OUTPUT IMM. <200!0RCVCO> LUSH THE INPUT SILO 
MICPC=MICPC41 
MSE TWRGUT! IMM! <200! ORCVCO> > 
BRWRTE IMM, 357 :MASK TO CLEAR--CLEAR ACTIVE 
MICPC=MICPC41 
MS UETIRTEDR! IMM! <3S7>> 
ae m: ANDB, ,SP10 :IN LINE STATUS WORD 
HOVE! SPX:6R#AANDB! SPO 
ALWAYS .SET STATE TO RCVA AND RETURN TO IDLE 


MICPCeMICPe+1 


coss 


DMC11 DDCMP PROTOCOL IMPLEMENTATION 


DOCNEW. MAC 21-APR-77 10:08 


Bis3e6 


013364 
013366 


013366 
013370 


013370 


114662 


000421 
000700 


ood4ee 
063223 


000423 
100445 


10? 
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RCVA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER 


RAZ: 1 a) aa ~INTTB3000%4) # «RIAA ANETRCZETEE’ crate To 1 


SIRT artoe +1 
(MOVE !WRTEBR! IMM! <RCVI-INIT877772>> 


ST CPCEMISECTT , 
«MOVE! SPX! BR! SELB! SP3> 
aL uRYS.. S E 
MICPC=MI ute 
MGM? AL COND! <IDLE-INITS3000%4> ! <IDLE-INIT8777/2>> 


REXIT: 


w 
me 


OC8e 


a 4 
‘ 
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R INE TO HANOLE FIRST CHARACTER OF COUNT FIELD 
: PRT ERED FMBn SBLE Bop 
394 ‘STORES COUNT FIELD AND SETS UP RCVC AS NEXT STATE 
1337 RCVB: ; 
ax G1 3375 SP IBUS , RCVDAT, SP4 ;READ CHARACTER TO SP4 
at O20 hicecentcece *RCVDAT! SP4> 
agg Bt 3354 (BaXE thAPPRe :LOAD ADDRESS OF START OF RECY CHAIN 
2 oan SBS ore be gen 
10024 < »»> 
839 013376 RX LOMA, SELB, SP14 ;COPY POINTER TO SP14 
(i) 000426 RICPC=NIe Cri 
(1) 013376 053234 (MOVE! SPX! MEMX! LOMAR! SELB! SP14) 
390 ;AND LOAD_MAR WITH AQOR SS OF CURRENT 8A 
i 013400 BRWRTE MEMX, INCMAR!SELB :READ FLAGS BYT 
a 013400 aes a a 
* . > 
902 013402 BRO 1 sRECV BUFFER ASSIGNED---CONTINUE 
(1) 000430 MICPC=MICPC+1 
(1) o13402 106042 <JUMP BROCON? <RB1- -INIT83000#4> ! <RB1-INIT8777/2>> 
903 013404 BRWRTE AISPL :READ STATUS BYTE 
(1) 000431 neat 
(1) 013404 060601 EBRIBR!cSELA!SPL>> 
904 013406 BR7 sMAINT MODE 
(t} grg4og Yoru RICPCHMCP HL INIT&3000#4> ! <RB3-INIT8777/2>> 
Bt 3i98 LOMA —sOIMM, ' ; ERROR--LOAD oYPE FIELD ADDRESS IN MAR 
(1) 000433 MICPC=MICPC#1 
(1) 013410 010153 (MOVE! LOMAR! IMM! <T8377>> 
906 O134le MEMINC IMM.2 sLOAD NAK TYPE 
(1) 000434 MICPC=MICPC+1 
(1) 013412 016402 <MOVE ! WRMEM! INCMAR! IMM! <2>> 
907 013414 MEM IMM, 310 :LOAD SUB-TYPE NO BUFFERS 
(1) 000435 MICPC=MICPC PCS] 
(1) 013414 002710 «MOVE! NAMEN! IMM! <319> 
908 013416 COMA IMM. NTLS 
(th) 134 BTOOTe RICPCSMICPCHL army 
< 
909 Bt 3ue8 ALWAYS RHS ;BRANCH TO SEND NAK ROUTINE 
(1) 000437 MICPC=MICPC+1 
(1) 013420 104557 < JUMP! ALCOND! <RHS~INIT83000#4> ! <RHS-INIT8777/2> > 
910 013422 RB3:  BRWRTE IMM,4 :MASK FOR NO BUFFER AVAILABLE 
(1) 000440 MICPC=MICPC41 
(1) O13422 Oo0404 NES ETWATEBR! IMM! <4 > 
911 oO13424 SP BR : SET THE FLAG 
(1) 000441 MICPC=MICPC+1 
(1) 013424 063301 (MOVE ! SPX! BR! AORB! SP1> 
9i2 013426 RBI: STATE RCVC 
(1) oo044e2 MICPC=MICPC+1 
(1) O13426 O00462 (MOVE! WRTEBR! IMM! <RCVC-INIT877772>> 
913 013430 RBO: SP BR SEL3,SP3 
(1) 000443 MICPC=MICPC+1 oz 
(1) 013430 063223 <MOVE ! SPX! BR! SELB! SP3> ae 
914 013432 OUTPUT <MEMX! INCMAR> , <SELB!0BA1> : OUTPUT LOW ORDER BYTE OF ADDRESS 
(1) o00444 MICPC=MICPC+1 


KO? 
BOERAUCRRC  S]RPR-AP TBs Revee=RBUTINE To Usd That HARACTER OF COUNT FIELD nats Goan 


gis Bt Sas4 % SUTPUT. RENK! INCHAR: MOEL BT BRASS OUTPUT HIGH BYTE OF ADDRESS 
(1) 000445 Sse Bs 7 

(1) 013434 056227 UNOVE TWROUT!MEMX? INCMAR! “SELB! OBA2) > 

916 013436 Sp ius UBBR, SPO ;READ THE BUS REQ REGISTER 

(1) 000446 MICPC=MICPC+] 

(1) 013436 123220 <MOVE ! SPX! TBUS! UBBR! SPO> 

917 013440 BRWRTE Ii 101 :MASK OFF ALL BUT NXM AND VEC4 BITS 
(1) 000447 MICPC= sHICPC 

(1) 013440 000501 «MOVE ! ae! meetin 

918 O1344e2 SP BR, AANDB, SPO sAND SAVE IN SPO 

i) guawe BSE USTED atl agg: sr 

919 ft 44 Se sMASK TO ISOLATE EX. MEM BITS 
(1) 000451 RICPC=MICPCST 

(1) 013444 003305 <MOVE ! SPX! IMM! 300! SPS> 

920 ;NOTE THIS REALLY WRITES A 30S BUT THE 
321 5 GETS SHIFTED OUT 

922 013446 BRWRTE MEMX. AANDB!SPS MASK ALL BUT EX. MEM BITS 

(1) o004se2 MICPC=MICPC+1 

(1) 013446 O40665 (MOVE ! WRTEBR! MEMX! <AANDB! SPS> > 

$23 013450 BRSHFT ;SHIFT THEM INTO THE CORRECT POSITION 
(1) 000453 MICPC=MICPC+1 

(1) 013450 001620 CMOVE! SHF'TBR! HRTEBR! SELB> 

924 013452 BRSHFT 

(1) 000454 MICPC= MICPC+1 

(1) O134S2 001620 MOVE ! SHF TBR! WRTEBR! SELB> 

925 013454 BRSHFT 

(1) 000455 MICPC=MICPC+1 

(1) O134S4 001620 <NOVE 1 SHF TBR! WRTEBR! SELB> 

926 013456 BRSHF 

(1) o004s6 RICPCAAICPC#| 

(1) O134S6 001620 «HOVE! SHE TBR? WRTEBR! SELB) 

927 013460 OUT BR, AORB! OBR :WRITE EX MEM BITS OUT 
(1) 000457 MICPC=MICPC+1 

(1) 013460 061311 «MOVE! WROUTX!BR! <AORB! OBR) 

928 013462 WAYS 

(1) 460 NICPC =MICPC+1 tnd 

(1) 013462 10044 < JUMP! AL OND! <IDLE-INIT83000%4) ! <IDLE-INIT8777/2>> 

929 013464 RB2: ALWAYS I2 

(1) 000461 MICPC=MICPC+1 

(1) 013464 100454 < JUMP! ALCOND! <12-INIT&3000%#4> ! <I2-INIT8&777/2>> 


--—= - -- -—2 eee eee ewer ee ee mee eee 


specter 
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SBTTL_ RCVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 


FuTeaeR.F8 Pee BNO Ans 


;CHECKS FOR COUNT TOO L 
013466 RCVC: Ava WAYS L@SY ;"CALL” SELECT/QSYNC SUBROUTINE 


000462 MICPC 

013466 114470 (JUMP? AL CORO! <SELOSy- INITB3000%4 ! <«SELQSY-INIT8777/2) > 

013470 LOMA BR, <SELA!SP14Y ;LOAD ADDRESS OF CURRENT COUNT 
000463 NICPC=MICPC+ tl 

013470 070214 (MOVE !LDMAR! BR! <SELA!SP14)> 

01347e Me BRURTE BR? INCHAR, ,SELA!SP1 ;READ STATUS BYTE 

013472 nara < TATE RR! BR! INCMAR! <SELA!SP1>> 

013474 BRWRTE SHFTBR! INCMAR, SELB -SHIFT IT RIGHT 

013474 yes ae TTS Ee 

013476 BRI RCS :NO BUFFER ASSIGNED IN MAINT MODE 
000466 MICPC=MICPC+1 

013476 106475 < JUMP! BRICON! <RCS-INIT&3000#4> ! «Ros INITS7770 

013500 BRWRTE IMM! INCHAR, 77 MASK FOR COUNT BITS 
000467 NICPC=MICPC+ 1 

013500 014477 MOVE! WRTEBR! IMM! INCMAR! <77>> 

013502 or MENX HINCMAR,SELB,SPO § ;COPY HIGH BYTE OF COUNT TO SPO 
000470 MICPC=NIC +i 

013502 057220 MOVE! SPX! MEMX! INCMAR! SELB! SPO> 

013504 BRUR TE BR, AANDB! SPO :MASK TO BR 
000471 MICPC=MIC cpt+1 

013504 060660 HOVE! URTEBR? BR! <AANDB! SPO) > 

013506 CNP BR, SPS :COMPARE HIGH ORDER BITS OF COUNT 
000472 MICPC=MICPC+1 

013506 060365 <SUBTC! BR! SPS> 

013510 C CFATL IF CARRY--T00 BIG ERROR 
000473 MICPC=MICPC+1 

013510 i15116 < JUMP! CCOND! <RCFATL-INIT&3000#4> ! <RCFATL-INIT8777/2) > 

013Sie2 2 RCL Ou IF EQUAL COMPARE Cow ORDER BITS OF COUNT 
900474 MICPC=MICPC+1 

013512 115513 < JUMP! ZCOND! <RCLOW-INIT&3000%#4> ! <RCLOW-INIT8777/2>> ~~. 

013514 RCS: STATE  RCVD ;SET NEXT STATE TO D 
000475 MICPC=MICPC+1 

013514 000477 CHOVE?WATEBR! IMM? <RCVD- INIT877772>> 

013516 ALWAYS REX I 
900476 MICPC=MICPC+1 

013516 104422 < JUMP! ALCOND! <REXIT-INIT83000#4> ! <REXIT-INIT8777/2>> 
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1 DDOCMP PROTOCOL + tata 
21-APR-77 10:08 


000507 
100445 
000510 
06060: 
000511 
103445 


000512 
060610 


000513 
001620 
000514 
103045 
000515 
010155 
000516 
062600 
000517 
010403 


oc0S20 


MACY11 
RCVO--R 


PCVD: 


RD3: 


RDe: 


10S: 


ROS: 


MO 
BUTINE 10 HANDLE RE Hi i then MESSAGES 


.SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBEPED MESSAGES 


CA, SPY :DECREMENTLOW BYTE OF COUNT 
AFcpcenr Beet 
<HOVE! SPX:BR?DECA! SP4> 

;NO OVERFLOW 


i rere! _— <ROS=INIT87777e) > 


nares DE occes SPS> 


STATE 
MLS pcve-INIT8777/2 
. * . - , 
BR , ;SAVE THE STATE 


;OVERFLOW - DECREMENT HIGH BYTE 


SPBR IBUS. RCVDAT, SPO 
MICPC=MICPC+ 

SOG SP TEE RC VOAT PO 
BRWRTE BR,SUB!SP17 ;COMPARE NEW R TO LAST R 
Neale ee lene cquaraps?>> 

BR7 10$ ;IF NEW IS GREATER---PROCESS 
MICPC=MICPC+1 

(oe Bere «10$-INIT&3000#4> !< 10$-INIT&77772>> 
MICPC=MICPC+1 

« JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&777/2>> 

BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 
MICPC=MICPC+1 


(MOVE! WRTEBR! BR! <SELA!SP1>> 
BR7 IOLE ;MAINT. MODE - GET OUT 
MICPC=MICPC+1 


CJURBBRZCON! «TLE ~INIT&3000#4> ! < IDLE-INIT&777/2>> 
BRWRTE BR, SELA!SP10 


MICPC=MICPC+1 
eT <SELA!SP10>> 


BR 
nee MICPC+1 
«MOVE! ore Tees WRTEBR! SELB> 


BRY 

MICPC=M ICPC+1 

«JUMP! BRICON! CIDLE- INIT&30£0#4> ! <TDLE= ~INIT8&77772>> 

LDMA IMM, ISP17 ;ADDRESS LAST ACKED IMAGE 
yt Ty oA” 


PC+1 
VESLORAR? In <15P178377>> 
BR, SELA!SPO 


MEM 
MICPC=MICPC+1 

<MOVE ! WRMEM! BR! <SELA! SPO>> 
BRWRTE IMM.REPST!LOMAR SET UP COUNT FOR TIMER 
MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <REPST!LDMAR> > 


; INPUT THE CHARACTER 


;COPY THE CHAR 


;#*#*DEPENDENT ON REPST = 2 
MEM IMM, 1 :RESET REP THRESHOLD 
MICPC=MICPC41 


mm eee 


PAGE: 0090 


NO? 


DMC11 — PROTOCOL > + pete MACY11 30(1046) 11- sue -77_ 12:18 PAGE 6-32 PAGE: 0091 
DOCNEW. MAC 21-APR-77 10:0 RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 
(1) 013562 002401 (MOVE! WRMEM! IMM! <1>> 
() 013564 - BR, SELB, SP1S ;RESET THE COUNT 
1) o1gsey Bea88s SAVE SPC roel seLerspis» 
972 013566 ALWAYS IDLE 
: MICPC=MICPC+1 


1) o00S2e 
1) 013566 100445 <« JUMP! ALCOND! < IDLE-INIT&3000#4> ! <IDLE-INIT&77772>> 


BOS 
BORN ORE S]SRPR-P> 16c0R «—RCVE=-ROUTINE TO PAROLE N FIELD OF NUMBERED MESSAGE 


a4 .SBTTL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
976 013570 RCVE: QBRWRTE BR,SELA!SPI :READ THE STATUS BYTE 
(1) 000523 MICPC=MICPC+1 

(1) 013570 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 

7) SE aon epcaa Se 

(1) 013572 107713 < JUMP! BR7CON! <RCVQ-INIT&3000#4 ! «ROVO-INIT8777/2> 

978 013574 BRWRTE IBUS RCVDAT ; INPUT THE CHARACTER 
(1) 000525 MICPC=MICPC+] 

(1) 013574 O20600 <HOVE!WRTEBR! IBUS! <RCVDAT> 

$79 013576 ll 

(1) o00S26 GCPCAMTeR et 

(1) 013576 060371 <SUBTC! BR! SP11> 

980 013600 2 S$ 

1) 1 ese rete sore NIT&83000#4> ! <S$-INIT877772>> 

98) 61309 been, re :FORCE MSG TYPE TO -1 
(1) 000530 NICPC=N IC BOF +1 

(1) 013602 063173 MOVE! SPX! BR! DECA! SP13> 

982 013604 ALWA 

1) 00053: MICPC=MICPC+1 

(1) 013604 104533 < JUMP! ALCOND! «RE2-INIT83000#4> ! «RE2-INIT8777/2> > 

983 013606 S$: SP BR, INCA, SP11 : UPDATE R FIELD 

(1) 000532 MICPC=MICPC+1 

(1) 013606 063071 (MOVE! SPX!BR! INCA!SP11> oa 
984 013610 RE2: STATE RCVF ;NEXT RECEIVE STATE IS F 
(1) 000533 MICPC=MICPC+1 

(1) 013610 000535 NAVE TORTEBRY IMM! <RCVF-INIT8777/2)> 

985 013612 ALWAYS xIT 

(1) 000534 MICPC=MIC BC+] Sst 

(1) 013612 104422 < JUMP! ALCOND! <REXIT-INITS3000#4> # <REXIT-INIT$777/2): 


SALA? MUSES RPM Hdl = 


987 .SBTTL RCVF--ROUTINE TO IGNORE ADDRESS 
988 013614 RCVF: STATE RVG 
1) 000535 MICPC=MICPC+1 
(1) 013614 O00540 MOVE! WRTEBR! iis <ACVG-INIT8777/2>> 
989 013616 RCVF 1: INPUT CHARACTER - AND DISCARD 
(1) ia 000536 nigpcemrcpee] 
— aL nays XLT 
(1) 000537 MICPC=MICPC4+1 
(1) 013620 104422 «JUMP! ALCOND! <REXIT-INIT83000#4> ! (REXIT-INIT8777 72) > 
33 ’SBTTL RCVG--ROUTINE TO IGNORE CRC1 
994 013622 rcve: tate RCVH sNEXT STATE IS RCVH 
(1) 900540 MIC PC=MICPC 
(1) 013622 o00542 MOET UATEGRE IMM! (RCVH-INIT8777/2 > 
995 013624 ALUA YS RCVF 


000S41 MICPC=MICPC+1 
013624 104536 < JUMP! ALCOND! <RCVF 1-INITS3000#4 $< RCVF1L-INIT8777/2>> 


~eN 
~~ 
~—- 


DOS 


11 DOCNP PROTOC MPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 6-35 PAGE: 0094 
BOCNE MAC BT oAPR-P> 16:08 ROVE ROUT NE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


397 _SBTTL RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 
999 013626 RCVH: ° 

1000 013626 SP IBUS, RCVDAT, SPO GET CHAR IN SPO 

(1) oo0s42 MICPC=MICPC+ 

(1) 013626 623200 <HOVE SPX? IBUS! RCVDAT ! SPO> 
1001 013630 BRURTE igus RCVCON ;READ RECVR CONTROL REGISTER 
(1) 000543 MICPC=MICPC+ 

(1) 013630 O20640 (MOVE! WRTEBR! IBUS! <RCVCON> > 

1002 013632 BRO TDONI IF BCC MATCH SET CRC IS GOOD 
(1) o00S44 MICPC=MICPC+1 

(1) 013632 116167 < JUMP! BROCON! < TOON1-INITS3000#4> ! < TDONI-INIT8777/2>> 

1003 013634 BRWRTE BR. SELA!SP1 “READ STATUS BYTE 

(1) oo0s4s MICPC=MICPC+41 

(1) 013634 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 

1004 013636 BR? RHX :MAINT MODE 

(1) O00S46 MICPC=MICPC+1 

(1) 013636 107751 <JUNP2BRZCON! <RHX- 1 INIT83000#4> ! <RHX-INIT8777/2>> 

1005 013640 BRWRTE <(SELA!SP1O> sREAD PORT STATUS WORD TO BR 

(1) 000547 MICPC=MICPt+1 

(1) 013640 060610 (MOVE !WRTEBR! DP! <SELA!SP10>> 

1006 013642 BRSHFT 

(1) oo0sso MICPC=MICPC+1 

(i) 013642 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 
1007 013644 BRY SNAK | IF START MODE--PROCEED TO RESEND START 
(1) 000551 MICPC=MICPC+1 

(1) 013644 117315 < JUMP! BRYCON! <SNAK1-INIT&3000#4 ! <SNAK1-INIT877772) > 
1008 013646 LOMA = =—soIMM.T ELSE BCC ERROR--LOAD ADDRESS OF TYPE FI 
(1) oo0sse2 MICPC=MICPC41 

(1) 01364% 010153 <MOVE !LDMAR! IMM! <18377>> 

1009 013650 MEMINC IMM.2 sWRITE NAK TYPE 

(1) o00ss3 MICPC=MICPCH1 

(1) 013650 016402 (MOVE! WRMEM! INCMAR! IMM! <2>> ke 
1010 013652 MEMINC IMM. 301 ;WRITE HEADER BCC ERROR SUBTYPE 
(1) oo0ss4 MICPC=MICPCH1 

(1) 013652 016701 (MOVE! WRMEM! INCMAR! IMM! <301>> 

1011 013654 MEM BR, SELA'SP17 :RESTORE LAST ACKED IMAGE 

(1) o00sss MICPC=MICPC+1 

(1) 013654 062617 (MOVE !WRMEM! BR! <SELA!SP17>> 

10le 013656 LOMA IMM. NHDS sADDRESS CUM ERROR COUNTER 

(1) o00S56 MICPC=MICPC41 

(1) 013656 010013 (MOVE !LDMAR! IMM! <NHDS8377> > 

1013 013660 RHS: SP MEMX. SELB, SPO ;WRITE IT TO SPO 

(1) 000557 MICPC=MICPC+1 

(1) 013660 043220 CMOVE ! SPX! MENX! SELB! SPO? 

1014 013662 MEM BR, INCA'SPO s INCREMENT IT 

(1) 000560 MICPC=MICPC+1 

(1) 013662 062460 COVE! URFER! BR? INCA! SPO> : 

1015 013664 LOMA IMM. NAKST ADDRESS NAKS TMTED DYNAMIC 

(1) 000561 MICPC=MICPCS1 

(1) 013664 010001 (MOVE! LDMAR! IMM! <NAKST8377> > 

1016 013666 BRWRTE HEN SELB ;WRITE IT TO BR 

Ch) oo0ste MICPC=MICPC 

(1) O13666 O40620 CMOVE! WRTEBR? MENX! <SELB> > ; 

1017 013670 BSHF :SHIFT IT RIGHT 

(1) o00Se3 MICPC=MICPC+1 


“= - “7. = +2 ee - = -_- - 


11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-36 PAGE: 
ate AAC thee ee 10:08 RCVH--ROUTINE TO HANDLE CRC2 AND TO Be SPaTEH NUMBERED AND UNNUMBERED TYPES 

(1) 013670 061620 <MOVE! SHF TBR! SELB! BR> 

1018 013672 MEM UPDATE IT 

(1) 013672 Beeeed MMOVE? cf 

1019 013674 BRO mis ;BRANCH IF THRESHOLD EXCEEDED 

(1) o00s6s MICPC=MICPC+1 

(1) 013674 116264 < JUMP! BROCON! <NTHRES-INIT83000#4> ! <NTHRES-INIT8777/2> > 

1020 013676 aL HA 

(L) 013676 eC (JUMP! ALEOND! <SNAK- ~INIT83000#4> ! <SNAK-INIT8777/2> > 

1921 013700 RH3:  BRWRTE DP, <DECA'SP13> “LOAD TYPE RECEIVED--DECREMENT ING 

(1) 000567 MICPC=MICPC+1 

(1) 013700 73 SAS VETHATEBR! DP! <DECA! SP13>> 

1028 013702 - Z pcan ete sIF ALUOUT IS ALL ONES IS NUMBERED MSG 

(1) 013702 tpeeae OGRE TTCOND! RHI ~INIT&3000#4> ! <RH1-INIT8777/2> > 

1023 013704 RSTATE RCVA 

(1) 000571 NICPC=ICEC# 

(1) 013704 900400 (MOVE !WRTEBR! IMM! <RCVA-INIT8777/2> > 

(1) 013706 DesEe3 HOVE SPA BR 'SELB!SP3> 

1024 013710 BRWRTE DP. <SELA'SPI1O> LOAD LINE STATUS WORD IN BR 

(1) 000573 SRO COMTEPCST 

(1) 013710 060610 «MOVE! WRTEBR! DP! <SELA!SP10>> 

1925 013712 BRY FLUSH 

(1) 000574 MICPC=MICPC+1 

(1) 013712 117040 < JUMP! BRYCON! <FLUSHI-INIT83000#4> ! «FLUSH1- =INIT8777/2>> 

1026 913714 C61: _ BRSHFT “SHIFT RIGHT 

(1) 000575 MICPC=MICPC 

(1) 013714 001620 <MOVE! CHE TBR! WRTEBR! SELB 

mM oe 000576 nICPC= mrebees 

(1) 013716 107204 MOET BRACONE <10$-INIT83000#4> ! <10$-INIT$777/2>> 

1028 013720 LOMA IMM, TYPTAB “ADDRESS TYPE TABLE 

(1) 000577 MICPC=MICPC41 

(1) 013720 010163 (MOVE! LDMAR! IMM! <TYPTAB&377> > 

1029 013722 CMP <MEMX! INCMAR> , SP13 

(1) 000600 MICPC=MICPC+1 

(1) 013722 054373 <SUBTC! MEMX! INCMAR! SP13> 

1030 013724 2 REP 

C1) 000601 MICPC=MICPC+1 . 

(1) 013724 115404 < JUMP! ZCOND# <REP-INIT8300084> ! (REP-INIT8777/2>> 

1031 013726 CMP <MEMX! INCMAR> , SP13 

(1) 000602 MICPC=MICPC+1 

(1) 013726 054373 <SUBTC! MEMX! INCMAR! SP13> 

1032 013730 2 NAK 

1} 000603 MICPC=MICPC41 ~ 

(1) 913730 115443 < JUMP! ZCOND! <NAK- INITS3000#4 ! <NAK-INIT$?77/2>> 

1033 013732 10$: LOMA IMM TYPSTT SET POINTER TO START TYPE 

(1) 000604 MICPC=NICPC Pc) 

(1) 013732 O19165 REEVE TLOMAR! IMM! (TYPSTT8377>> 

1034 013734 CMP <MEHX! THCMARD , SP13 

(1) 000605 MICPC=MICP 

(1) 013734 054373 <SUBTC! TEE? INCMAR! SP13> 

1035 013736 


~t 


Zz 
OO0E0E MICPC=MICPC41 


--¢ 


009s 


ONC11 DOCMP PROTOCOL IMPLEMENTATION 
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21-APR-77 


013736 
013740 


013740 
013742 


arses 
013744 
013746 


013746 
013750 


115413 


ie 
4373 
000610 
115425 
000611 
054373 
000612 
105620 


000613 
19044S 


2ae40 


000615 
060400 


0006 16 
1034Se2 
000617 
110405 
000620 
060530 
000621 
107223 
900622 
100445 
000623 
000727 
000624 
063270 
o00b2S 
104S17 


MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-37 PAGE : 


RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


RCVCK: 


ACK: 


S$: 


<« JUMP! ZCOND! «START-INIT&3000#4> ! <START-INIT877772>> 
;STACK TYPE 

: c —e SP13 

i Bfcrn Shi! InowmesPi3 


fcr 
rs i TACK-INIT&3000#4>! aTRCtS NI1877772>> 
ei xf NEMARD SPI KE 
STCPCEMICPE 
ea ee TC! HEN? INCMAR! SP13> 
Arcec mICeC+1 
TOMB? TOOND! CACK- -INIT&83000#4> ! <ACK-INIT8777/2>> 
ALWAYS oe s;OTHERWISE IGNORE--MUST BE O8S MSG 
(Jur AL CORO! 


UMP! ALCOND! < IDLE-INIT83000#4> !< IDLE-INIT8777/e2)> 
IBUS, RC ;READ RCVR CONTROL CSR 


SPBR ‘ 
M =M + 
<MO ROVE SPOR 1BuS!RCVCON! SPO» 


Se re 

Mee eE THR TEBR!BR! (ADD! SPO> 
ape Il 
MICPC=M 1ePC+] 
feet -INIT83000#4> ! <I1-INIT8777/2>> 
MICPC=MICPC+1 


< A eeto -INIT83000#4> !< TAL-INIT8777/2>> 
eere BR, AR!SP10 *READ LINE STATUS-SHIFTING LEFT 
MICPC=MICPC+1 


'WRT TAR! <AA!SP1O> 
Bey is ;IF START RECD -- CLEAR START MCDE 
ME aascont 


UMP? BRYCON! <S$-INIT83000#4> ! <S$-INIT8777/2>> 
ALWAYS IDLE 
CURB EALCONO! cIDLE- INIT&3000#4> ! < IDLE- ~INIT8777/2 2) 
> (ite 
BRWRTE IMM, 327 CLEAR START MODE 
MICPC=MICPC41 
CHOVE!MRTEBR? Im! 327)» 


SP : 
MICPC=MICPC+1 
ROVE! SPX BR AANDE!SPLO) 


ALWAY 
MICPC=MICPC+1 : pos 
TUM! ALCOND! <ROS-INIT&3OCC#> # <ROS-INITS777-2) 


;SHIFT LEFT 


;IN LINE STATUS 


0096 


GO8 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) 11-JUL-77 12:18 PAGE 6-38 PAGE: 9097 
DOCNEW.MAC 21-APR-77 10:08 RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 

1055 er avant ot Se mae Fike? anit Coo CARE S#4F 444445 5444545445 

} L RCVKOI- Y 

1057 013776 RCVKCI: Per RES APR SPO BEE MPR REE ICTER 

(2) 009626 PC=MICPC+ 3 

(1) 013776 123600 HOVE? SPSRX? IBUS! NPR! SPO> 

1958 014000 BRO DLE 

(1) 000627 NICPC=NICPC 4 | 

(1) o14000 102045 < JUMP! BROCON! < IDLE-INIT&3CO0#4> ! < IDLE-INIT8777/2>> > 

1053 014002 BRWRTE IMM, 200 “MASK FOR CO(BYTE TRANSFEX) 

(1) 000630 MICPC=MICPCHI 

(1) oO14002 900600 (MOVE! WRTEBR! IMM! <200>> 

1060 014004 OUT BR. <AORB! ONPR> : TURN ON CO 

(1) 000631 MICPC=MICPC+1 

(1) O14004 061310 (MOVE ! WROUTX! BR! <AORB! ONPR> > 

1961 014006 STATE RKE1 

(1) 000632 MICPC=MICPC+1 

(1) O14006 900670 (MOVE! WRTEBR! IMM! <RKE1-INIT877772> > 

i062 014010 ALWAYS RCVKO2 

(1) 000633 MICPC=MICPC+1 

(1) 014010 104637 < JUMP! ALCOND! <RCVKO2-INIT8&3000#4> ! <RCVKO2-INIT877772> > 

1063 .SBTTL RCVKO--PROCESS ODD CHARACTER 

1072 o14012 RCVKO: SPBR _IBUS,NPR,SPO :IS AN NPR GOING 

(1) 000634 MICPC=MICPC+! 

(1} O14012 123606 «MOVE! SPBRX! IBUS! NPR! SPO> 

1973 014014 BRO IDLE sIF SO --- GET OUT 

(1) 000635 MICPC=MICPC+1 

(1) 914014 102045 < JUMP! BROCON! < IDLE-INIT83000#4> ! < IDLE-INIT8777/2>> 

1074 014016 STATE BCYKE 

1) 000636 MICPC=MICPC+1 

(1) 014016 OO0064S CMOVEWRTEBR! IMM! <RCVKE- -INIT877772>> sed 

1075 914020 RCVKO2: SP BR. SELB, sSET STAT 

(1) 000637 aT CPCOMIERCT 

(1) O14020 063223 (MOVE ! SPX! BR! SELB! SP3> 

1076 O14022 OUTPUT IBUS. RCVDAT! OUTDA2 : OUTPUT A CHAR 

(1) 000640 MICPC=MICPC+1 

(1) o14022 022203 «MOVE ! WROUT! IBUS! <RCVDAT! OUTDA2> > 

1077 014024 RK2: 

1078 914024 RK8:  BRWRTE IMM.21 :SET OUT NPR (C1) AND NPR REQ 

(1) 000641 MICPC=MICPCH1 

(1) 014024 00042] <MOVE!WRTEBR! IMM! <21>> 

1080 014026 SP IBU' : :READ NPR REGISTER 

(1) o00642 MICPC=MICPC+] 

(1) O14026 123209 <NOVE! SPX? IBUS! NPR? SPO) 

1081 914030 RK?: BR. <AORB! ONPR> :WRITE NPR REGISTER 

1) 000642 MY CPCeM MICPC+1 

(1) 014030 061210 «MOVE ! WROUTX! TBR! <RORB! ONPR) » 

1082 014032 ALWAYS DLE 

pODE44 MICPC=MICPC 


ene 
+o 
on S 


024032 100445 « JUMP! ALEOND! < IDLE-INIT$300 C#4>?< TDLE-INITS77°7"2>> 


DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-39 PAGE: O098 


DNC 11 
DOCNEW.MAC = 21-fPR-77 10:08 RCVKE--HANDLE EVEN BYTES 
1 VKE—-HANOLE EVEN BYTES 
1833 014034 RCVKE: BATE RES NP ;READ NPR CONTROL REGISTER 
C1) 000645 BT CPCEM ICPC+ x 
(1) 014034 120600 (MOVE! WRTEBR! IBUS! <NPR> > 
1099 014036 BRO 
(1) 000846 MICPC=MICPC+1 
(1) 014036 102045 < JUMP! BROCON! < IDLE-INIT&3000#4> ! « IDLE-INIT877772>> 
1101 014040 RKS: SP IBUS, IOBA1, SPO “READ LOW BYTE OF BA TO SP 
(1) 000647 HICPCHICECS +4 
(1) o14040 023140 (MOVE! SPX! IBUS! IOBA1!SPO> 
1102 o1404e2 OUTPUT DP. <INCA!OBAL> ;WRITE INCREMENTED 8A 
(LD 014042 SOBEL MEE AROUT? bps < INCA! OBAL ) 
> 
1193 O14044 RKSO: SP BR. DECA, SP4 sDECREMENT CHARACTER COUNT 
(1) 000651 MICPC=MICPC+1 
(1) G14O44 063164 «MOVE ! SPX! BR! DECA!SP4> 
1104 O14046 C 10$ :NO OVERFLOW 
(1) 000852 MICPC=MICPC+1 
(1) o1404% 105255 <JUMP* CCOND! < 10$-INIT83000#4> ! < 10$-INIT8777/72) > 
1105 0O140S0 SP BR DECA, SPS -OVERFLOW - DECREMENT HIGH SYTE 
(1) 000653 MICPC=MI Pt+1 
(1) O140SO 063165 «MOVE! Sex BR#DECA! SPS> 
1106 9014052 2 RL3 :BYTE COUNT ZERO 
(Ly oragse Tpeeer CJURPZCORD: INETE300084»# «RL 3-1NIT877 
11h? 014054 108: SP Bus, 1oBAl, SPO READ INCREMENTED 8A 
(t) 014054 oorae neem S' 10BA1'!SPO 
{ « > 
1108 014056 OUTPU RCAS BEAL sWRITE INCREMENTED 8A 
(1) 000656 SP ReNTeP 
(1) O140S6 O62066 «MOVE ! WROUT ! 1OP! INCA! OBAL> > 
1109 014060 C 2 IF CARRY INC BR HIGH 
(1) 000657 MICPC=MI 
(1) 014060 115030 (JUMP? CCOND! <ICBA22-INITBIOOO*4) ! « ICBRZ2- -INIT8777/2> > 
1110 014062 RK3: = SP IBUS , RCVDAT, SPO :READ CHAR AND SAVE IN SPO 
(1) 000660 MICPC=N ICPC+ 7 
(1) ol4062 923200 MOVE #SPX2 TBUS!RCVDAT? SPO? : 
1111 014064 RK3: OU TPUT BR SELA 'OUTDAL SWRITE THE CHARACTER 
(T) 14064 pooees MEO VETURGUT? TIBR! <SELA!OUTDAL> > 
(i) < 
tlie 014066 SP ok tore 364 sDECREMENT THE COUNTOF BYTES 
(1) 000662 nicecsnrcrtsl 
(1) O14066 063164 mon wate 
1113 014070 : RK :NO OVERFLOW 
(1) 000662 MICPC=MICPC+1 
(1) 014070 105266 <JUMP*CCOND! <RK&-INIT$3000%4> ! <RKE-INIT8777/2>> 
1114 014072 SP BR. DECA, SPS sDECREMENT HIGH BYTE OF COUNT 
(1) 000664 MICPC=MICPC+1 
(1) 014072 O63165 «MOVE! CPx BR! DECA! SPS> ; 
1115 014074 2 RLY :BYTE COUNT ZERO 
(1) 000665 MICPC=MICPC+1 
(1) O14074 111765 < JUMP! ZCOND! <RL4Y-INIT$3000#4> ! <RLY-INIT87772>> 
1125 014076 RK6: STATE RCV Ko 
(1) OODEEE MICPC=MICPC+1 
1) 014076 000624 <MOVE! WRTEBR! IMM! <RCVKO-INIT&77 
3126 014100 ALWAYS REXIT 


DOMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-40 PAGE: 0099 
DOCNEW. MAC 21-APR-77 10:08 RCVKE--HANOLE EVEN BYTES 


(1) 000667 MICPC=MICPC+1 
iB 014100 104422 “ag ALCOND! «REXIT-INIT83000#4> ! <REXIT-INIT8777/2> > 
1129 o14192 RKEL: meee NPR, SPO :READ NPR REGISTER 
(1) 000670 mICcPC+l 
(1) 014192 123200 Picresmmt el nro 
1130 014104 BRWRTE in 177 :MASK FOR ALL BUT CO 
(1) 000671 MICPC=MICPCH1 
(1) 014104 000577 CHOVE!URTEBRE IH! (177>> 
1131 014106 BR < <RANDB! ONPR? ; TURN OFF ALL BUT CC 
(1) 00067 nae 
(1) O14106 06127 UTX!BR! <AANDB! ONPR) > 
1132 014110 ALWAYS 30 
++ 014110 rere ee SO-INI #4)! <RKSO-INIT8777/2) > 
4 « < ia 
1183 atas 04651 cpaensan DoE RK it Tey ogst 1 Pee edeketesacsoanegusnnannesoncsseeess 
l 
1135 o14112 RCVKEO: SP 1BUS RCVDAT, SPO :READ CHARACTER AND SAVE IN SPO 
(1) 000674 MICPC=M 
(1) ol4112 023200 CHOVE?SPX? TBUS! RCVDAT!SPO> 
1136 O14114 BRWRTE BR SELA SP] :READ STATUS BYTE 
(1) 000675 MICPC=MIC 
(1) O14114 O6060i CHOVETURTESREBR! (SELA!SPL) 
1137 O14116 BR7 PRSHR RO sMAINT MODE - SEE IF RLD MESSAGE 
(3) 000676 MICPC=MICPC 
(1) O14116 117600 «JUMP! BRS CON! < PASWRO- ~INIT83000% ¢ <PASWRO-INIT8777 2) > 
1138 014120 ai WA YS RK3 OTHERWISE PROCESS NORMALLY 
( 090677 MICPC=MICPC+1 


o--o-« 
_ 


- 


014120 id%66! <« JUMP! ALCOND! <«RK3- aeutexenetnd INIT8777/2>> 


JO& 


ONC11 DOCHP PROTOCOL IMPLEMENTATION  MACY11_ 30(10NG) 11-JUL=77 12:18 PAGE 8-41 PAGE: 
DOCNEW. 21-APR-77 10:08 RCVI--STORE UNNUMBERED MESSAGE TYPE 

1140 .SBTTL RCVI--STORE UNNUMBERED MESSAGE TYPE 

1141 014122 RCVI: §P IBUS  RCVDAT, SP13 ;STORE UNNUMBERED TYPE 

it) Beser3 TOPx fa 

(42 Biyige i x1 [gust RCvDAT!SP13> Ms 

1142 141 stay ;NEXT STATE IS J 

(1) 000701 RICPCSNTCEC#1 

(1) 914124 000703 <MOVE ! WRTEBR! IMM! <RCVJ-INIT877772) > 

1143 014126 ALWAYS REXIT 

(1) oo0702 NICPCENTCRG #1 

(1) 914126 lo44ee < JUMP! AL COND! <REXIT-INIT83000#4> ! <REXIT-INIT8777/2) > 


KQ8 


DMC11 DJDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J1-JUL-77 12:18 PAGE 6-42 PAGE: 010! 
DDCNEW. MAC 21-APR-77 10:08 RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 
1146 .SBTTL RCVJ--ROUTINE TO gy SUBTYPE FIELD,SELECT AND FINAL 
wit 014130 . RCVJ: RLUAYS SEL SEL@SY ;"CALL” SELECT AND QSYNC SUBROUTINE 
(1) 014130 79098 Get AL CONG bt «seLosy- IW1T890008 #SELaBY-1N178777/2> 
1148 014132 STAT VR ;NEXT STATE IS N 
(1) 000704 nice =MICPC+1 
(1) Q14132 000706 CHOVEURTEGR! IMM! cRCVR- INIT877772>> 
1149 014134 ALWAYS REXIT 
(1) 00070S MICPC=MICPC+1 
(1) O14134 104422 JUNE! ALCOND! <REXIT- ~INIT&83000#4> ! <REXIT-INIT877772) > 


LOS 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-43 PAGE: 9102 
DDCNEW.MAC  21-APR-77 10:08 RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 

1151 .SBTTL RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 

115¢ ;ENTERED FROM IDLE LOOP 

1154 014136 RCVR:  BRWRTE IMM.3 ;REP MESSAGE TYPE TO BR 

(1) 00070€ MICPC=MICPCH1 

(1) 014136 000403 (MOVE! WRTEBR! IMM! <3>> 

1155 014140 NOP BR, SUB, SP13 ;IS TYPE ACK OR NAK 

(1) 000707 MICPC=MICPC+1 

(1) O14140 060353 (BR? SUB!SP13) 

1156 014142 STATE RCV ;NEXT STATE IS RCVQ 

(1) 000710 MICPC=MICPC+1 

(1) O14142 000713 (MOVE ! WRTEBR! IMM! <RCVQ-INIT&777/2>> 

1157 ;###NOTE THIS INSTR DOES NOT CLOCK “C™ 

1158 014144 C RCVF 1 IF NOT IGNORE 

(1) 000711 MICPC=MICPC+1 

(1) O14144 105136 < JUMP! CCOND! <RCVF 1-INIT&83000%4> ! <RCVF1-INIT8777/2> > 

1159 O14146 ALWAYS RDe :D0 RANGE CHECKS 

(1) 000712 MTCPCOMICe C+1 

(1) 024146 104503 < JUMP! ALCOND! <RD2-INIT83000%4> ! <RD2-INIT&777/2> > 


MOS 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J1-JUL-77 12:18 PAGE 6-44 PAGE: 0103 
DOCNEW. MAC 21-APR-77 10:08 RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 

1164 PRT Ms BEve- RED MESSAGE--NUMBER FIELD 

ies NT FROM I LE 

1164 014150 RCVQ: ;NEXT STAT R 

(1) 000713 Neamt oe ap ee 

(1) 014150 9000535 VETURTEBR: IMM! <RCVF-INIT8&7777e2>> 

1165 014152 aways ae 

(1) 000714 " CPC=MICPC 

(1) O14152 104536 SGN? AL COND! <RCVF1- INITS83000#4> ! <RCVF1-INIT877772> > 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-45 PAGE: 0104 
DDCNEW. MAC 21-APR-77 10:08 RCVL--PROCESS CRC3 


1167 .SBTTL RCVL--PROCESS CRC3 

1168 jENTERED FROM IDLE LOOP 

1169 014154 RCVL:  §PBR BUS, NPR, SPO READ NPR CONTROL 
(1) 0997115 neta Pcs! 

(1) O14154 1236 tSPERX? BUS! NPR! SPO> 

1174 014156 

(1) 000716 SRO OCAMICPCel 

(1) 014156 102045 < JUMP! BROCON! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772>> 

1176 014160 RL2: BRWRTE IMM, 177 “MASK TO TURN OFF CO 
(1) 000717 NICPC=MICPCS 

(1) 914160 000577 MOVE! WRTEBR! IMM! <177>> 

1177 014162 OUT 'ONPR 

(1) 000720 MICPC=MICPC+1 

(1) 014162 061270 <MOVE!WROUTX! BR < ANDB! ONPR? 

1178 014164 RL3:  SPBR Bus IOBA1 , SPO READ LOW ORDER BYTE OF ADDRESS 
(1) 000721 AICPC=MI 

(1) O14164 023540 MOVE ! SPBRX! IBUS! IOBA1!SPO> 

1179 014166 OUT PUT BR, INCA!OBAL ; INCREMENT THE LOW ORDER BYTE 
(1) 000722 MICPC=MICPC+1 

(1) O14166 O62066 <MOVE !WROUT! BR! < INCA! OBAL>> 

1180 014170 SP IBUS, IOBA2, SPO READ HIGH BYTE 

(1) 000723 MicecenICrcal 

(1) 014170 O23160 MOVE ! SPX! IBUS! IOBA2! SPO> 

1181 014172 OUTPUT BR, AC! OBA2 ADD CARRY TO HIGH BYTE 
(1) 000724 MICPC=MICPC+1 - 

iB 014172 062107 <MOVE ! WROUT! BR! <AC! OBA2> > 

1183 014174 étate RCV 

(1) 000725 MICPC=MICPC+1 

(1) 014174 000727 (MOVE !WRTEBR! IMM! <RCVM-INIT8777/2>> 

1184 014176 ALWAYS RCVF1 

(1) 000726 MICPC=MICPC+1 

At) 014176 104536 < JUMP ALCOND! <RCVF 1-INIT&3000%4> ! <RCVF 1-INIT8777/2>> 

1190 


DNC11 DDOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:18 PAGE 6-46 PAGE: 0105S 
DOCNEW.MAC 21-APR-77 10:08 RCVM--PROCESS CRC4--END OF DATA MESSAGE 
1192 .SBTTL RCVM--PROCESS CRC4--END OF DATA MESSAGE 
1193 ;ENTERED FROM IDLE LOOP 
1138 IF CRC CORRECT -- GUEUE INTERUPT AND UPDATE RESPONSE 
11% IF CRC WRONG SEND NAK 
1197 014200 RCVM: ituete tee “UBER ;READ UNIBUS BR REGISTER 
(1) 000727 MICPC=MICPC+1 
(1) O14200 120620 (MOVE! WRTEBR! IBUS! <UBBR> > 
1198 O14202 BRO :NON-EXISTANT MEMORY 
(1) 000730 MICPC=MICPC+1 
(1) O14202 116063 < JUMP! BROCON! <NXMERR-INI /83000#4> ! <NXMERR-INIT8777/2> > 
1199 014204 SP RCVDAT, SPO READ CRC CHARACTER 
(1) 000731 MICPC=MICPC+1 
(1) ©14294 023200 <HOVERSPX3I *RCVDAT!SPO> 
1200 014206 BRWRTE IBUS RCVCON :READ RECEIVER CONTROL REGISTER 
(1) 000732 MICPC=MICPC+! 
(1) 014206 20640 (MOVE! WRTEBR! IBUS! <RCVCON) > 
1201 014210 BRO RCVM1 ;IF CRC GOOD -- PROCESS 
(1) MICPC=MICPC+1 
(1) O14210 116216 < JUMP! BROCON! <RCVM1-INIT83000#4 ! <RCVM1-INIT877772>> 
1202 O14el2 BRWRTE BR, SELA'SP1 “READ STATUS BYTE 
(1) 000734 MICPC=MICPC+1 
(1) O14212 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
1203 O14214 BR? RHX ;CRC ERROR IN BOOT MODE - FLUSH 
(1) 000735 MICPC=MICPC+1 
(1) 014214 10775] < JUMP! BR7CON! <RHX-INIT&3000#4> ! <RHX-INIT8777/2) > 
1204 014216 LOMA” ~—OIMM. T ;ELSE SEND NAK --DATA ERROR 
(1) 000736 MICPC=MICPCH1 
(1) 014216 010153 (MOVE! LOMAR! IMM! <T8377>> 
1205 014220 MEMINC IMM.2 :NAK TYPE 
(1) 000737 MICPC=MICPCH1 
(1) O14220 O1640e (MOVE! WRMEM! INCMAR! IMM! <2) > 
1206 014222 MEMINC IMM 302 ;DATA ERROR SUBTYPE 
(1) 000740 MICPC=MICPC$1 
(1) Ol4222 016702 (MOVE! WRMEM! INCMAR! IMM! <302>> 
1207 014224 LDMA IMM NOATS 
(1) 900741 MICPC=MICPC41 
(1) 914224 910014 (MOVE! LDMAR! IMM! <NDATS8377> > 
1208 O14226 ALWAYS RHS :SEND NAK 
(1) 000742 MICPC=MICPC+1 
ih 014226 104557 < JUMP! ALCOND! «RHS-INIT$3000#4> ! <RHS-INIT8777/2> > 
1210 014230 RCVMO: LOMA IMM, <<RTHRS+3>> :POINT TO ERROR WORD 
(1) 000743 MICPC=MICPC41 
(1) 914230 010177 (MOVE! LOMAR! IMM! << RTHRS+3)8377>> 
iZ11 014232 BRWRTE IMM. 10 ;MAINT MESSAGE ERROR 
(1) 000744 MICPC=MICPC41 
(1) 014232 000410 (MOVE !WRTEBR! IMM! < 10>> 
1212 014234 ALWAYS RCEXY :GIVE FATAL ERROR 
i pwd 900745 MICPC=MICPC+1 
(1) 914234 114525 “JUMP! ALCOND! <RCEXY-INITS2000#4> ! <RCEXY-INITS?777-2> > 


e 


fu -- fu fu — fororurury 


Si 


o be 
fH — 
me Ow OY - ONTUIE 


~ 
and A * Lanta’ A en an 
_ 
~~ 


- 
Te 
we ew 


Ty i — — 
Twn-fM-- “on, 
—-) ~ —) ~p 
we ad — —— 


— 


aia &* tenant A * Lanta! 


- 


+(e 
oe 


014 
014264 
014264 


104415 
000757 
063164 
000760 
11$720 


900761 
100445 


MACY 1 
EMe-- 


EMe: 


RHX: 


10S: 


EM3: 


l L1-JUL-77 12:18 PAGE 6-47 PAGE: 
bedeeeene > Atssace 
.SBTTL EM2--PROCESS RLD MESSAGE 
ENTERED FROM IOLE L 
IF RLD PASSWORD CHECKS TRIGGER THE BOOT ROM 
BRWRTE IBUS, RCVDAT READ THE CHAR 
ME VE TERTEGR je 
16 -1S IT @ MATCH 
MIC strc 
ss C!BR!SP16> 
MICPC=M 
SS TICONDE < <EM3-INIT83000#4 ! t<ENGINETET7 70> ) 
BRWRTE AA!SP “READ STATUS BYTE SHIFTED LEFT 
ME OATES nents 
BRY 1 ay :DLE RECEIVED IN NORMAL MODE 
CURB EBSCO! 108 INIT83000#4> ! 19S IMTS 777 (ty 
ALWAYS FLU S rebe LUSH ALREADY IN MAINT MODE 
’ *<FLUSH-INIT83000#4>! TT ee a Ed 
abe — :MASK TO CLEAR ALL MAINT RELATED SITS 
BR “SP ;CLEAR THEM 
Foc rial 
Le! Ga 
ALWAYS FLUSH 
MICPC=MICPC+1 
< JUMP! ALCOND! <FLUSH-INIT83000#4> ! <FLUSH-INIT877772> > 
BR, DECA, SP4 ;DECREMENT CHARACTER COUNT SY ONE 

MICPC=MICPC+1 
«MOVE! SPX! BR! DECA! SP4> 
Z cpcenr eerie s TRIGGER AC LOW 

+ 
< JUMP! ZCOND! CEMTRIG-INIT83000#4> ! <EMTRIG-INIT8777/2>> 
ALWAYS IDLE 
MICPC=MICPC41 


< JUMP! ALCOND! < IDLE-INIT83000#4 !< IDLE-INIT$777/2>> 


0106 


DNC 11 = PROTOCOL IMPLEMENTATION MACY11 30( 1046) eS 12:18 PAGE 6-48 PAGE: 0107 


DOCNEW 21-APR-77 10:08 EM2--PROCESS RLD MES 
1233 . 
1234 014266 BOOT: ®BRWRTE BR,SELA!SPI :SEE IF IN MAINT. MODE 
{rr es HE ESTES BR! <SELAISPI>> 
1235 014270 BR7 ;BRANCH IF SO AND TREAT OLE LIKE NUM. MSG. 
(1) 000763 MICPC=MICPC+1 
(1) 014270 103747 < JUMP! BR7CON! <RA3-INIT83000#4 ! «PAZ INGTOZZ2/B? 
1236 014272 BRWRTE IMM. 210 MASK TO SET MAINT MODE AND DLE RECV’D 
(1) 000764 NICPC=MICECS | 
(1) 014272 000610 MOVE !WRTEBR! IMM! <210)> 
1237 014274 se BR, AORB, SP1 ;SET THE BITS 
1) 000765 MICPC=MICPC+1 
(1) 014274 063301 MAS VE SPX: BR! AORB! SP» 
1238 014276 ALWAYS RAI ; TREAT LIKE NUMBERED MESSAGE 
(1) 000766 MICPC=MICPC+1 
(1) 014276 100747 < JUMP! AL COND! <RA3-INIT&3000#4> ! <RA3~INIT8777/2) > 
1239 014300 RESEXT: BRWRTE IMM.4 ADD TO MXT BITS 
(1) 000767 MICPC=MICPC41 
(1) 014300 O00404 (MOVE! WRTEBR! IMM! <4) > 
1240 014302 SP IBUS. NPR, SPO 
C1) 000770 MICPC=MICPC+1 
(1) 014302 123200 (MOVE ! SPX! IBUS! NPR! SPO> 
1241 014304 OUT BR. ADD! ONPR D0 IT 
(1) 000771 MICPC=MICPC+1 
(1) 014304 061010 <MOVE ! WROUTX! BR! (ADD! ONPR> > 
1242 014306 ALWAYS RES! 
1) 000772 MICPC=MICPC+1 
(1) 014308 110753 < JUMP * ALCOND! <RES1-INITS3000#4> ! <RES1-INIT877772>> 
1243 014310 TABMXT : BRIRTE IMM, 4 s INCREMENT MXT 
(1) 000773 MICPC=MICPCH1 
(1) 014310 O00404 (MOVE! WRTEBR! IMM! <4) > 
1244 014312 SP IBUS . UBBR, SPO :READ BR CONTROL 
(1) 000774 MICPC=MICPC+1 
(1) O14312 123220 <MOVE! SPX! TBUS! UBBR! SPO> 
1245 014314 OUT BR, ADD! OBR 
(1) 000775 MICPC=MICPC+1 
(1) O14314 061011 ME UE THROUTX!BR! <ADD! OBR) > 
124 014316 ALWAYS ECX 
(1) 000776 MICPC=MICPC+1 * 
£1) 014336 114767 < JUMP! ALCOND! <ECX-INIT$3000#4> ! <ECX-INIT8777/2) > 
1247 014320 $7 
C1) 000777 MICPC=MICPC+1 
i) 014320 960000 000000 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 


DOCNEW. MAC 


014322 


014322 
014324 


014324 
014326 


014326 


21-APR-7 


Baars 


001000 
020620 


001001 
173202 


001062 
100452 


EQ9 


MACY11 30(1046) JLl-JUL-77 12:18 PAGE 6-49 PAGE: 
7 10:08 EM2--PROCESS RLD MESSAGE 
. = INI T+2000 
MICPC=777 
.SBTTL TMTDA--TRANSMITTER DISPATCH ROUTINE 
TMTDA: ®RWRTE IBUS, TMTCON :READ TRANMITTER CONTROL REGISTER 


MICPC=MICPC+1 

«MOVE! WRTEBR? BUS} <THTCON? 

.BRY SELA, <2!PAGEe> :IF READY PROCEED 
MICPC=MICPC+1 

«JUMP! BRYCON! DP! SELA! 2! PAGE2> 

ALWAYS Il ;ELSE IDLE 
MICPC=MICPC+ 


PC+1 
«JUMP! ALCOND! < I1-INIT83000#4> ! <I 1-INIT877772>, 


0108 


DNC DDCHP PROTOCO, IMPLEMENTATION — RAG IL. 99(}0%6) aA} ed re PAGE 6-SO PAGE: O109 


1287  SBTTL TMTA--FIRST CHARACTER OF HEADER 
1269 014330 TMTA: : cae :SHIFT LEFT 

{ft} oraazo Beas CROVELURTE #9R! <AA!SPIO) 

1260 014332 

(1) 001004 RIcPC=n entcpes 

(1) 014332 107614 < JUMP! BR CON! RCVCK- INIT83000%4 <RCVCK-INIT877772> > 

1261 014334 TAL: BRWRTE BR, SELA 'SP10 “REREAD STATUS 

(1) 001005 MICPC=MICPC 

(1) 014334 060610 (MOVE! WRTEBR! BR! <SELA!SP10>> 

1262 014336 BRO NUMSYN : IF UNNUMBPENDING -- SEND ! 
(1) 001006 MICPC=MICPC+1 

(1) 014336 112031 A EAP | BROCON! <NUMSYN- -INIT82000#4> ! <NUMSYN-INIT877772> > 

1263 014340 BRSHFT 

(1) 001007 MICPC=MICPC 

(1) 914340 001620 A SVE SHE TER! WRTEBR! SELB> 

1264 014342 BRY Il ;IF START MODE--EXIT 
(1) 001010 MICPC=MICPC+1 

(1) 014342 103052 < JUMP" BRYCON! <I 1-INIT&3000#4> ! <I1-INIT877772>> 

1265 014344 BR1 NUNS YN “IF LINE HAS GONE IDLE SEND SYN 
(1) 001011 MICPC=MICPC+1 

(1) O14344 112431 < JUMP" BRICON! <NUMSYN-INIT83000#4> ! <NUMSYN-INIT877772> > 

1266 :ELSE--START TO SEND MESSAGE 
1267 O14346 TMTEXT: TSTATE THB 

(1) 001012 MICPC=MICPC+1 

(1) 01434 000453 (MOVE! WRTEBR! IMM! < TMTB-INIT38777 2 > 

(1) 001013 MICPC=MICPC+1 

(1) 014350 063222 (MOVE! SPX! BR! SELB! SP2> 

1268 014352 BRWRTE ®BR,SELA!SP1 sARE WE IN S00T MODE 
(1) 001014 MICPC=MICPC+1 

(1) O143S2 060601 CHOVE!URTEBR! BR! <SELA!SPL> 

1269 014354 BR? NBT :IF SO SEND DLE 

(1) 001015 MICPC=M 1ePeel 

(1) O143S4 113427 <JUMP 2BR7CON! < THTBT- INIT&3000#4 ! <TMTBT- ge age it 

1270 014356 BRUR TE BR <SELA 'SP10> NNUMB MESSGE? 

(1) 901016 MICPC=MIC 

(1) O143S6 O60E10 <MOVE! TP ORIBR! <SELA!SPIC>> 

1271 014360 BRO TMTUN : IF SO --BRANCH 

C1) 001017 MICPC=MICPC+1 

(1) 014360 112023 (JUMP! BROCON! < THTUN- INIT&3000#4> !< TMTUN-INIT8777/2>> 

1272 014362 BRWRTE IMN, 201 sELSE STORE SOH 

(1) 001020 MICPC=MICPC41 

(1) 014362 000601 (MOVE !WRTEBR! IMM! <201>> : 

12732 014364 TMTAS: OUTPUT BR <SELB!THTOAT» :IN TMT SILO 

(1) 001921 MICPC=MIC 

(1) 014364 062230 ME OVE TROUT! BR! “SELB! THTDAT> > 

1274 014366 ALWAYS I1 

1) 001922 MICPC=MICPC+1 s 

(1) 014366 100452 “JUMP! ALCOND! <I1-INT "8300084 !<I1L-INIT8777/2>> 

1275 014370 TMTUN: TSTATE TMTI 

(1) 001023 MICPC=MICP C+1 

(1) Ul4370 990605 ROVE !MRTEGR? Thm! «THTI- -INIT8777/2>> 

1) 1024 mTCPee MICPC+ 

(1) 014372 062222 “MOVE ! SPX! BR! SELB! SP2> 

i276 014374 PRWRTE IMM,S -ENQ TO BR 


GO9 


DMC11 DDOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-51 PAGE: O110 
DDCNEW.MAC  21-APR-77 10:08 TMTA--FIRST CHARACTER OF HEADER 

(]) ND ™ = 

ib orya7y Bodase SASVET DRYER? rm 5)» 

1277 914376 

C1) 001026 nYcecentcec Gpest 

(1) 014376 110421 <JURBLALCONOE cTHTAS-INITB300084 cTNTAS- INIT8777/2>> 

1278 014400 TMTBT: BRWRTE IMM. 2c WRITE A DLE TO BR 

C1) 001027 MICPC=MICPC41 

(1) 914400 000620 <MOVE LWRTEBR? IMM! < 220) 

1279 014402 ALWAYS TMTAS :SEND IT 

(1) 001030 MICPC=M Ieper 

{ LD o144o2 110421 CJUMPTALCOND! <TMTAS-INITS3000%#4 ! < TMTAS-INIT8777/2>> 

1281 O14404 NUMSYN: BRWRTE BR, <SELA!SP1O> :READ LINE STATUS WORD 

(1) 001031 MICPC=MICPE+1 

(1) O14404 960610 CMOVE !WRTEBR! BR! <SELA!SP10)> 

1282 014406 BR? 5 :IF OK TO SEND--PROCEED 

(1) 001032 MICPC=MIC 

(1) O14406 113434 IGMP! BRICON? <SS-INIT&3000%4) ! (S$-INIT8777/2)> 

1282 014410 ALWAYS I1 :ELSE--IDLE 

1) 001033 MICPC=MICPC+1 

(1) O14410 100452 < JUMP! ALCOND! <I1-INIT&3000#4> ! <I1-INIT877772>> 

1284 O14412 S$: BRWRTE IBUS MODEM “ARE WE STILL SENDING? 

(1) 001034 MICPC=MICPC+ 

(i) Ol441e d20660 (MOVE! WRTEBR! IBUS! «MODEM > 

1285 914414 BRSHFT 

(1) 001035 MICPC=MICPC+1 

(1) O14414 001620 <MOVE ! SHF TBR! WRTEBR! SELB> ie 
1286 O14416 BR Il :RTS SET? IF SO WE ARE--STALL 

Ch) 001036 MICPC=MICPC+1 

(1) O14416 10305e < JUMP! BRYCON! <I1-INIT&3000#4> ! sg INIT$777/%2>> 

1287 014420 BRWRTE IMM,373 MASK TO TURN OFFLINE IDLE 

(1) 001037 MICPC=MICPC41 

(1) 914420 900773 (MOVE! WRTEBR! IMM! <373>> 

1288 O14422 SP BR, AANDB, SP10 »IN LINE STATUS WORD 

C1) 901040 MICPC=MICPC+1 

(1) 014422 063270 «MOVE! SPX! BR! AANDB! SP10> 

1289 014424 TSTATE TMTAL 

C1) 001041 MICPC=MICPC+1 

(1) O14424 900445 CMOVE 'WATEBR! IMM! < THTAL- -INIT8777/2)> 

(1) 001042 MICPC=MICPC+i 

(1) O14426 063222 (MOVE! SPX! BR! SELB! SP2> 

1294 014430 BRWRTE IMM, 10 

C1) 001043 MICPC=MICPC41 

(1) O14430 000410 «MOVE! WRTEBR! IMM! < 10> . 

1296 014432 SP SELB, SP6 :STORE IN SPS 

(1) 001044 MICPC=MICPC41 

(1) 014432 063226 CHOVE! SPX? BR! SELB! SP6> 

1297 014434 TMTAL: SP BR, DECA, SP6 :DECREMENT SYN COUNT 

‘oil 001045 MICPC=MICPC+1 

(1) O14434 063166 HOVE! SPX! BR! ipEca!sPé) 

1232 014436 2 MTEXT 

L) 001046 d rOPCeMICr C+1 

(1) O1M426 111412 JUMP! COND! < TNTEXT- INITS3C0O0#4 !< TMTEXT-INITS777"2> > 

1289 014440 BRWRTE IMM. 1 “MASK FOR SOM 

C1) 001047 MICPC=MICPC41 

1, ol444o O90401 MOVE! WRTEBR! IMM! < 1>> 


HO9 


DMC11 ODCMP PROTOCOL IMPLEMENTATION no 30(104%6) 11-JUL-77 12:18 PAGE &-Se PAGE : 
DOCNEW. MAC 21-APR-77 10:08 TMTA--FIRST CHARACTER OF HEADER 

1300 014442 OUTPUT BR anata ;WRITE IT TO TMTP CONTROL 

(1) 001050 MICPC=MICPC+ 

(1) O14442 062231 «MO TWROUT!BR! <SELB!OTHTCO>> 

1301 O14444 BRIR E ad as ;SYNC CHAR 

(1) 001051 MICPC=MICPC$1 

(1) O14444 000626 «MOVE an ar 

1302 O14446 ALWAY S 

(1) 0010Se2 MICPC=MICPC+1 

(2) O214446 110421 < JUMP! ALCOND! < TMTAS-INITS3000#4> !< TMTAS-INIT8777/2) > 


109 


OMC1L1 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) L1-JUL-77 12:18 PAGE 6-S3 PAGE: Ol 
DOCNEW.MAC § 21-APR-77 10:08 TMTB--OUTPUT FIRST CHAR OF COUNT 
1304 _SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 
1306 O144S0 Te:  &PBR NPR, SPO sREAD BR CONTROL REG 
(1) 001053 areecentepead 
(1) O144S50 123600 (MOVE! SPBRX! IBUS! NPR! SPO> 
1307 014452 BRO 1OLE :NPR GOING--GET OUT 
(1) 001054 MICPC=MICPC+1 
(1) o144se 102045 < JUMP! BROCON! < IDLE-INIT83000#4> ! < IDLE-INIT877772)> 
1308 O144S4 Loma I -GETPOINTER TO NEXT TMT LINK 
(1) 0010S5 NICPC=MICPCH 
(1) 14454 010071 aE MAR? IMM! <LTC8377)> 
1209 014456 LOMA MEMX. SELB! SPX! SP16 :POINT TO THE LINK 
(1) 001056 MICPC=MICPC+ +} 
(1) O144S6 063236 (MOVE! LDOMAR! MEMX! <SELB!SPX!SP16>> ‘ 
1310 014460 MERIC IMM. 3 ;WRITE MSG TMTED TO FLAGS 
(1) 001057 MICPC=MICPC41 
(1) O14460 016403 «MOVE! WRMEM! INCMAR! IMM! <3>> 
1311 014462 MEMINC DP,SELA!SPle :PICK UP MSGNO 
(1) 001060 MICPC=MICPC+1 
(1} O14462 O766l1e CMOVE ! WRMEM TINCMAR! OP! <SELA!SP12>> 
1312 O14464 star TMTC sADDRESS TMTR STATE 
(1) 001061 MICPC=MICPC+1 
(1) O14464 000500 CROVE! WATEBR IEP <TMTC-INIT877772>> 
1313 O14466 TBO: LB, SP2 : UPDATE IT 
(1) 001062 nicpcenycrts 
(1) C1446 063222 BR!SELB 
1214 014470 OUTPUT CORTES SELB! BAL ; WRI TELOWBY TEOF ADDRESS 
(1) 001063 MICPC=MICPC+1 
(1) O14470 OS6224 MOVE :WROUT !NEMX? INCMAR? SELB? [BAL > ae 
1315 014472 OUTPUT CHEN? INCHARD , SELB! IBA ;WRITE HIGH BYTE OF ADDRESS 
(1) 001064 MICPC=MICPC+1 
(1) 014472 OS6225 <MOVE ! WROUT ! MEMX! INCMAR! «SELB! IBR2> > 
1316 914474 SP MEMX,SELB,SP7 ;HIGH BYTE OF COUNT TO SP7 
(1) 001065 MICPC=MICPC+l 
(1) O14474 043227 «MOVE ! SPX! MEMX! SELB! SP7> 
1317 ;WAIT TO MASK OFF Aten EXT. BITS 
1318 C14476 SP IMM, 300, SPO MASK FOR MXT 
(1) 001066 MICPC=MICPC41 
(1) 014476 003300 <MOVE ! SPX! IMM! 300! SPO> 
1313 014500 BRWRTE HEHX? INCHAR, AANDB! SPO ;TURN OFF CC2 
(1) 001067 MICPC=MICPC+1 
(1) O14S00 OS4660 (MOVE ! WRTEBR! MEMX! INCMAR! <AANDB! SPO> > 
1320 014502 BRSHF T :SHIFT BITS INTO CORRECT POSITION 
(1) 001970 MICPC=MICPC+1 
(1) o14S02 001620 (MOVE! SHF TBR! WRTEBR! SELB> 
1221 014504 BR T 
(1) 001071 MICPC=MICPC+1 
(1) O14S04 001620 <MOVE ! SHF TBR! WRTEBR! SELB> 
1322 014506 BRSHF T 
(1) 001072 MICPC=MICPC+1 
(1) 014506 001620 (MOVE ! SHF TBR! WRTEBR! SELB> 
1323 014510 BRSHF T 
(1) 001073 MICPC=MICPC+1 
(1) O14810 OO1620 MOVE ! SHE TBR WRTEBRE SELB) 
1224 614512 ourT R. SELB! ONPR 
(]} 001074 aYcpC= =MICPt+1 


DMC11 ODCMP PROTOCOL IMPLEMENTATION 
DOCNEW. 


188 


(1) 
1 


MAC 


21-APR-77 10:08 
061230 
001075 
057626 


001076 
062230 


TogN4s 


MACY11 30(1046) 1l1l-JUL-77 12:18 PAGE &-S4 
TMTB--OUTPUT FIRST CHAR OF COUNT 


oe Ein nr B!ONPR> > 


, SELB, SPE 
nICPC=HICEC 


x! xtT MAR! ' Pp 
SES ED TSE Sr 


NICPCaMICP 
TO ASUT GNI <SELAT THTDAT? 


PAGE: 


;LOWBYTE OF COUNT TO SP& 


;WRITE IT TO TMTR SILO 


S 
CPC=MICPC+1 
ics 'ALCOND! < IDLE-INIT&83000#4> ! < IOLE-INIT877772>> 


0112 


KOS 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 PAGE 6-SS PAGE: O114 
DDCNEW.MAC § 21-APR-77 10:08 Moe oe Be ott CHAR OF Asie 
1330 ‘a TMTC--OUTPUT SECOND CHAR OF COUNT 
1392 014S2e TMTC: E a :MASK TO CLEAR MXT BITS 
(t} o1ysee Bondy nie =H HEB a «77> 
1333 014524 AANDB, SP7 :CLEAR THEM 
B ouwsou SEL ions 
13 14 output” Be, bes Bare :WRITE TO TMT SILO 
at 614526 eed nicocenr creel 'DP! <SELB! TMTDAT> > 
u 
1335 014530 LOMA IMM LTC :POINT TO TMT BUFFER 
(1) 0011 MICPC=MICPC$1 
(1) 014530 010071 CHOVE!LDMAR! IMM! <LTC8377>> 
1336 014532 BRWRTE IMM.6 :OFFSET TO NEXT LINK 
(1) 001104 MICPC=MICPC41 
(1) 014532 O00406 <MOVE! WRTEBR? IMM: <6) > 
1337 014534 MEM BR. ADD! SP16 :UPDATE THE POINTER 
(1) 001105 MICPC=MIC cpt+i 
(1) O14534 062416 AOVETWAMEN! BR! “ADD! SP16> 
1338 014536 BRURTE Inm, TMLE :GET WRAPAROUND ADDRESS 
(1) 001106 MICPC=MICPC41 
(1) 014536 O00S4S «MOVE! WRTEBR! IMM! < TML@> > 
1339 014540 CMP BR, SP16 ; WRAPAORUND 
(1) 001107 MICPC=MICPC+1 
(1) 014540 060376 <SUBTC! BR! SP16> 
1340 o14S42 2 10$ 
(1) 001110 MICPC=MICPC+1 
(1) O14s42 111513 CJURB! ZCOND!¢108-INIT8300084 (10$-INIT8777 72> > 
1341 O14S44 SS: sta TE  TMTD 
(1) 001111 RICPESMICP C+1 
(1) O14S44 Q00515 MOVE! WRTEBR! IMM! <TMTD-INIT8777/2>> 
1342 014546 ALWAYS XEXIT 
(1) 001112 MICPC=MICPC+1 
(1) O14546 100451 JUMP! ALCOND! <XEXIT- -INIT&3000#4> ! <XEXIT-INIT8777 72> > 
1343 014550 10$: § MEM IMM, TML1 :GO BACK TO FIRST LINK 
(1) 001113 NICPC=MICECH 
(1) O14550 002473 MOVE! WRMEM! IMM! <TML1>> 
1344 014552 ALWAYS c$ 
(1) 001114 MICPC=MICPC+1 
(1) 014552 110511 < JUMP! ALCOND! <S$-INIT&3000#4> ! <S$-INIT8777/2>> 


mm mr a me ee 


LOS 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 6-S6 PAGE: O115 
DOCNEW.MAC  21-APR-77 10:08 TMTD--RESPONSE FIELD-NUMBERED MESSAGE 

1347 .SBTTL TMTD--RESPONSE FIELD-NUMBERED MESSAGE 

1348 O14SS4 TMTD: STATE  TMTE 

(1) 001115 MICPC=MICPC+1 

(1) 014554 000523 (MOVE !WRTEBR! IMM! <TMTE-INIT8777/2> > 

1349 O14 . sADJUSRT COUNT FOR TWO’S COMPLEMENT 

(1) 001116 MICPC=MICPC+1 

(1) O14S5S6 063166 <MOVE ! SPX! BR! DECA! SP6> 

1350 014560 C Tbe ;NO OVERFLOW 

(1) 001117 MICPC=MICPC+1 

(1) O14S6O0 111121 < JUMP! CCOND! < TD2-INIT&3000#4> ! < TD2-INIT&777/2> > 

1351 014562 SP BR . sDECREMENT HIGH BYTE OF COUNT 

(1) 001120 MICPC=MICPC+1 

(1) 014562 063167 «MOVE! SPX! BR! DECA! SP7> 

1352 014564 TD2: LOMA IMM ISPI1 :RESP FIELD ADDR TO MAR 

(1) 901121 MICPC=MICPC41 

(1) O14S64 910171 (MOVE! LOMAR! IMM! <ISP118377>> 


MOS 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046)_ J1-JUL-77 le: PAGE 11 PAGE: Ol 
DOCNEW. MAC 21-APR-77 10:08 TMTD--RESPONSE FI LO-NOMBERED he esace * 
1363 014566 ALWAYS TJ1 
(1) 001122 MICPC=MICPC+1 


(1) QO14S66 110606 «JUMP! ALCOND! < TJ1-INIT&3000#4> !<TJ1-INIT877772>> 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 
DDCNEW. MAC 10:08 


~ ~ —— 
oe 
ww OD 


—_ 
we eS) ee SY YS ew 


~ — 
vam tand © Ranta) ** Lain 6° baie * Load ¢* De oe! 


014570 
014570 
014570 
014872 
ot 72 

14574 


014574 
014576 


014576 
014600 
014600 
014602 
014602 


21-APR-77 


TMTE: 


NO9 


eR Heb thal Rela neta ee 


_SBTTL TMTE--NUMBER FIELD--NUMBERED MESSAGE 
S NPR, SPO -READ NPR CONTROL REGISTER 
nrcPc=ntcece | 

<HOVE! SPER 


X! IBUS! NPR! SPO> 
;BUSY - GET OUT 
MICPCENTCPC 


BRURT ZBRQCON! (I -JNITEQOOOH) # <11- -INIT8777/2) > 


BRNTE, ora 
THOVE!WRTEBR! GR! <SELA!SP12)> 
pycree BR, (SELB! THTDAT> ;WRITE IT TO THE SILO 
MICPC=MI 
«MO pn | manne pe 
MTF 


T 
MICPC=MICPC+1 
<MOVE! MRTEBR! INH! ¢THTF- ~INIT&77772>> 
ALWAYS TH3 
MICPC=MICPC+1 
<« JUMP! ALCOND! < TH3-INIT&3000#4> ! <TH3-INIT8777/2>> 


B10 


1 DOCMP PROTOCOL IMPLEMENTATION MACYI11 30(1046) 11-JUL-77 12:18 PAGE 12-1 PAGE: O118 
DOCNEW.MAC 21-APR-77 10:C9 TMTF--NUMBERED MSG ADDRESS FIELD 
378 .SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 
78 014604 TTF: STATE Fl 
1) 001131 MICPC=MICPC+1 
1) 014604 000535 (MOVE !WRTEBR! IMM! <TF1-INIT8777/2> > 
1379 014606 TF2: SP ‘ 
(1) 001132 MICPC=MICPC+1 
(1) 014608 063222 (MOVE! SPX! BR! SELB! SP2> 
1380 014610 BRWRTE IMM. 1 ;LOAD ADDRESS 
(1) 001133 MICPC=MICPC41 
{1) 014610 900401 (MOVE! WRTEBR! IMM! <1>> 
1386 014612 ALWAYS TMTAS 
(1) 001134 MICPC=MICPC+1 
(1) 014612 110421 «JUMP! ALCOND! < TMTAS-INIT83000#4> ! < TMTAS-INIT8777/2> > 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-2 PAGE: 0119 
DOCNEW. MAC 21-APR-77 10:08 TF1-NUMBERED MSG HEADER EOM 


1389 .SBTTL TFI1-NUMBERED MSG HEADER EOM 
1390 014614 TFl:  BRWRTE IMM.2 :E0M MASK TO BR 

(1) 001135 nICPCanr Cec 

(1) 014614 O00402 'WRTEBR! IMM! <2>> 

1331 014616 OUTPUT BR, < SELB! OTHTCO> ;UPDATE TMTR CONTROL REGISTER 
(1) 001136 Ricrcsnrarts | 

(1) 014616 062231 AOE aROU BR? «SELB! OTNTCO> > 

1392 014620 OUTPUT BR (Sei BT MTDAT> ;OUTPUT A GARBAGE CHAR 
(1) 001137 MICPC=MICPC+ 

(1) O14%620 062230 «MOVE :WROUTZBR# <SELB! THTDAT? 

1393 014622 BRURTE BUS 1IBAl sREAD LOW ORDER FROM INBA 
C1) 001140 MICPC=MICPC+1 

(1) O1462e2 d20500 COVE! WRTEBR? IBUS! <I 1BAL> > 

1394 014624 BRO TMT Fi IF OOD BYTE--BRANCH 
(1) 001141 MICPC=MICPC 

(1) 014624 112155 (JURE! BRGCON! cTHTE -INITS3000#4> # < TMTF1-INIT8777/2>> 

13295 014626 STATE 

(1) 901142 ea 

(1) 914626 cMOVE :WRTEBR# IMM! <THTH-INIT8777/2>> 

13% 914630 ALWAYS XEXI 

(1) Sea TePCel 


+ 
8 
oo 
-- 
Po 
Le ) 


Oi463C 100451 «JUMP! ALCOND! <XEXIT-INITS3CO0#4> ! <XEXIT-INITS77772>» 


38 


CMP PROTOCOL IMPLEMENTATION oe 1 30(10%6) 11-JUL-77 12:18 PAGE le-3 PAGE: 0120 
21-APR-77 10:08 [NUMBERED MSG HEADER EOM 


‘macenacge ~~ ay CRITICAL PATH--MODIFY WITH GREAT CARE 
.SBTTL TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 


014632 TMTH: SpaR IBUS ;READ NPR CONTROL 


g 
3 


Sa38 


(4) l ees Up laaonen 
1488 atta IF NPR IN PROGRESS --BRANCH 
(LD) 1 motaee Oe ERO 1-INIT8300084> <11-INIT877772>> 
1406 1 S$: output COM H1-1NT ' TMTDAT> sWRITE THE EVEN CHAR TO TMT SILO 
(1) 001146 SE PCAMICeCs| 
(1) 014636 022010 (MOVE! WROUT! TBUS! « INDATI! THTOAT> 
1407 014640 SP 18US IIBA1,SPO :READ LOW BYTE OF BA TO SF 
(1) 001147 MICPC=MICPC+1 
(1) O14640 023100 <MOVE #SPX3 IBUS? IBA! SPO? 
1408 014642 OUTPUT BR, <INCA!IBA ;OUTPUT INCREMENTED 8A 
(1) 001150 MICPC=MICPC+1 
(1) Ol4642 062064 (MOVE! WROUT ! BR! < INCA! IBAL> > 
1409 O14644 SP BR, DECA, SP sDECREMENT CHARACTER COUNT 
t} orweyy Beatee MOVES nIceee {DECAY SPE» 
< * 
1410 O14646 ¢ TH ;NO OVERFLOW 
uD 014646 oot tee reece He NIT&3000#4> ! <THG-INIT877772> > 
\ 
1411 014650 SP a te Asp) -DECREMENT HIGH BYTE OF COUNT 
(1) 001153 Sr CPCANICEEST 
(1) O14650 063167 <MOVE ! SPX! BR! DECA! SP7> 
1412 014652 2 HEH :BYTE COUNT ZERO 
(1) 001154 MICPC=MICPC+1 Bis 
(1) oO1146S2 115402 (JUMP? ZCOND! <HEH1-INIT83000#4> ! <HEHI-INIT8777/2>> 
1413 014654 THO: 
1418 014654 TMTF1: STATE TMTHO 
(1) 001155 MICPC=MICPC+1 
(1) o14654 000657 OHOVE! WRTEBR: IMI! < THTHO- -INIT$777/2>> 
1419 014656 ALWAYS XEXIT 
1) 001156 MICPC=MICPC+1 
(1) Ol46S6 190451 (JUMP! ALCOND! <XEXIT-INITS3000#4> ! <XEXIT-INIT38777 
1420 014660 TMTHO: 
1422 014660 SPBR NPR, SPO :NPR BUSY 
(13 001157 Sr eR en Tepeel 
(1) 014660 123600 (MOVE! SPBRX! IBUS! NPR! SPO> 
1423 014662 BRO 
(1) 001160 MICPC=MICPC 
(1) Ol4662 192052 CHET BROCON! <1 ~INIT83000%4) ! ¢IL-INIT8777/2 
1425 O14S64 TH9: OUT PUT IBUS. <INDAT2! TNTDAT ODD CHAR 70 § 
(1) 001161 MICPC=MICPC+ 
(1) Ol4664 022030 (MOVE! WROUT ! IBUS! < INDAT2! TMTDAT> > 
1426 014666 SP 18US IIBAL,SPO -READ LOW BYTE 70 SA 
(1) 001162 MICPC=MICPC 
(1) 014666 023100 CHOVE?SPX? TBUS! 11881 1SPO | f 
1427 014670 OUTPUT BR cINC A'TBAL> sOUTPUT THE INCREMENTED BA 
(1) 001163 MICPC=MIC 
(1) 014670 062064 <MOVE! WROUTIBR! <INCA! IBAL>> 
1426 014672 C HOINCH 
T} 001164 MICPC=MICPC+1 pins. 
(l} O14e72 111372 «JUMP! MENS! CHOINCH=INITS300084) # HOINCH-INITS777.'2) > 


E10 
1 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77. 12:18 PAGE 12-4 PAGE: O12! 
DOCNEW.MAC 21-APR-77 10:08 TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 

1429 014674 THB: SP BR, DECA, SP6 :DECREMENT CHARACTERCOUNT 

(1) Q14674 DeaIee an a 

< . 

14 14676 C ee :NO OVERFLOW 

(1) 001166 MICPC=MICPC+1 

(1) 014676 111171 < JUMP! CCOND! < TH7-INIT83000#4> ! <TH7-INIT8777/2> > 

1431 014700 ‘ sDECREMENT HIGH BYTE OF COUNT 

(1) 001167 MICPC=mIcPt 

(1) 014700 063167 ‘ 'SPX! BR! DECA! SP7> 

1432 014702 2 ;BYTE COUNT ZERO 

1) 001170 NICPC=H CPC+1 

(1) o14702 115402 <JUMP!2Z SND! CHEHI - INIT83000#4> ! «HEH! -INIT8777/2)> 

1433 014704 TH7:  SPBR  —__IBUS.NPR,SPO ;READ NPR REGISTER 

(1) 001171 MICPC=MICPC+ 

(1) 014704 123600 <MOVE ! SPBRX! IBUS! NPR! SPO> 

1437 014706 STATE THTH 

(1) 001172 HICPC=HIC 

(1) 014706 O00S44 «MO SPORE IMM! < THTH- INIT8777/2> > 

1438 O14710 TH3: SP BR, SELB, SP2 :SAVE TSTATE 

1) 001173 Rercanesi 

(1) 014710 063222 «MOVE! SPX! BR! SELB! SP2> 

1439 014712 THX: TE IMM, 157 :CLEAR CO AND Cl 

1} 001174 MICPC=MICPC41 

(1) O14712 900557 (MOVE! WRTEBR! IMM! <157>> 

1440 014714 BR, AANDB, SPO ;CLEAR THE BITS 

(1) 001175 MICPC=MICPC+1 

(1) O14714 063260 <MOVE ! SPX! BR! AANDB! SPO> 

1441 O14716 BRWRTE IMM. i ;WRITE NPR SITS TO BR 

(1) 001176 MICPC=MICPCH1 

(1) O14716 900401 <MOVE LWRTEBR! IMM! <1> 

1449 014720 ALWAYS 

1) 001177 RECPCOMTCRC#I 

(1) O14720 164643 <JUMP*ALCOND! <RK?-INIT83000#4> ! <RK7-INIT8777/2> > 

1451 p FPERERESSRRLEZEND TIME CRITICAL PATHSHR eee Reese eeeeseeseseer dese 

1452 : 


F10 


DMC11 DDOCMP PROTOCOL IMPLEMENTATION macy 11 30(1046) 11-JUL-77 12:18 PAGE 12-5 PAGE: O122 
DDCNEW.MAC  21-APR-77 10:08 MTI--SEND UNNUMBERED TYPE FIELD 
1454 .SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 
1455 014722 TMTI: LOMA IMM.T sAODRESS OF TYPE FIELD TC MAR 
(1) 001200 nicPcomiCPc pcs) 
(1) O14722 010153 CETL OMAR! IMM! <T8377>> 
1456 014724 sp” MEMX, SELB, SP& -COPY IT TO SP 
1) 001201 MICPC=MICPC+] 
(1) 014724 043226 (MOVE ! SPX! MEMX! SELB! SP6> 
1987 014726 _ STA re HTT 
(1) O14726 poaenS MES ET URSEDR: IMM! <TNTI-INIT8777/2> 
eS ay recente 
a : 014730 110606 CUMe: AL EONO! <TI1- INIT&3000#4> # <TJ1-INIT3777/2> > 
1460 *SBTTL TMTJ--SEND SUB-TYPE FIELD 
1461 014732 T™TJ: LOMA IMM ST “ADDRESS OF SUB-TYPE FIELD TO MAR 
(1) 001204 MICPC=MICPC41 
(1) O14732 O10I54 CNGVE!LOMAR? IN! <ST8377> > 
1462 014734 STATE THTK 
(1) 001205 NICPC=MICPC 
(1) ©14734 900619 Tretia BR! ms THT INIT8777/ 2) 
1463 914736 TJ1: MX SE 
1 001206 resents 
(1) 014736 942230 MOVE uMGUT? 2 NE 
1464 914740 ALWAYS XEXIT 
(h) 001207 MICPC=MICPC+1 
de 014740 10045: CJOMBEAL COND! ¢XEXIT- INITS3000#4 !<KEXIT-INITS777/2> > 


G10 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77. 12:18 PAGE 12-6 PAGE: 0122 
DOCNEW.MAC 21-APR-77 10:08 TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 

1967 _SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 

1463 014742 TMTK:  ®BRWRTE IMM,3 :WRITE A 3 TO BR 

(1) 001210 MICPC=MICPC41 

(1) o14742 000403 (MOVE! WRTEBR! IMM! <3>> 

1470 O14744 NOP BR, SUB, SP6 sIF TYPE LESS THAN 23 

(1) 001211 MICPC=MICPC+1 

(1) O14744 O60346 <BR! SUB! SP6> 

1471 014746 TSTATE THT 

(1) 001212 MICPC=MICPC+1 

(1) O14746 000616 (MOVE !WRTEBR! IMM! <TMTL-INIT3777/2> > 

(1) 001213 niCPC=MICPCs +i 

(1) O14750 063222 VE!SPX!BR! SELB! SP2) 

wri; abies 001214 hycees si 

(1) O147S2 111223 ro INIT83000#4> ! < TMTLO-INIT8777/2>> 
1473 014754 Epes S TDe 

(1) 001215 MICPC=MICPC+1 

AS) 014754 110521 < JUMP! AL COND! <TD2-INIT83000#4» ! « T02- -INIT8777/2>> 

1475 *SBTTL TMTL--UNNUMG MSG NUMBER FIELD 

1476 014756 TMTL: TSTATE THT 

(1) 001216 MICPC=MICPC+1 

(1) O147S&6 900627 HOVE? WRTEBR! IMM! <THTM- -INIT8777 72> > 

(1) 001217 MICPC=MICPC+1 

(1) O14760 063222 M SVE SPX? BR! SELB! SP2> 

1477, 014762 BRWRTE IMM,3 

(1) 001220 MICPC=MICPC41 

(i) 014762 9000403 <MOVE !WRTEBR! IMM! <3>> 

1478 014764 CMP BR. SP6 -IS MESSAGE REP 

(1) 001221 MICPC=MICPC+1 

(1) O14764 060366 <SUBTC! BR! SP6> 

14739 O1476E 2 TMTL1 ; YES 

(1) 001222 MICPC=MICPC+1 

(1) O14766 111625 <JUMP® ZCOND! < TMTL1-INITS3000#4> !< TMTLI-INIT8777/2>> 

1480 014770 TMTLO: BRWRT —E IMM.O -ADDRESS CONTNAT OF ZERO 

1) 991223 MICPC=MICPCH1 

(1) 014770 Oo0490 MHOVE!WRTEBR! IM! <O> 

1481 014772 ALWAYS TM NTRS 

1) 001224 MICPC=MICPC+1 : 

(bb 1a77 110821 < JUMP! AL COND! < TMTAS-INITS3000#4> !< TMTAS-INITS777/2>> 
1483 014774 tMTLI: BRWRTE BR DECA!SP12 :WRITE & RESPONSE 

(1) 001226 MICPC=MICP 

(1) O1N774 O60572 «MOV! VEINRTEEREBR! <DECA!SP12>> 

1489 014776 ALWAYS TM TAs 

+ § Bee 001226 MICPC=MICPC : 

at 914776 110421 JUMP! BU SOND! <TNTAS- -INITS300084 !< TMTAS-INITS777 >> 
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001230 
110532 
001231 
oo040e 
001232 
062231 


1233 
002835 
001234 
000404 
001235 
063710 
001236 
060530 
001237 
113643 


001240 
000776 


001241 
063270 
001242 
119734 


001243 
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c01244 
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TMTM: 


TNEOM: 


10S: 
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Bo De 30(1946) = 11l-JUL-77 Aeide PAGE 12-7 PRGE: C124 


MSG--STRTION AD 


crate, 1 —_" MSG--STATION ADDRESS 


=M 
ea "IMM! < TNEOM-INIT8777 72> > 
is SNICPE+! 
«JUNE LALCOND! < TF2-INITB3OO084) <TF2- INIT8777 78> 
2 F MESSAGE TO BR 


MICPC=MICPC+1 
CHOVESHRTEBR! IMM? <2>> 
OUTPUT BR, <SELB!OTMTCO> 
MICPC=MICPC+1 
CHOVE THROUT BR? cSELBEOTHTCO> 
nice BR, <SELB! TMTDAT> sOUTPUT @ GARBAGE CHARACTER 
M cre: NIC cPt+] 

QUT! GR! «SELB#THTOAT> 
BRURTE IMM. 4 :SET UP LINE HAS GONE IDLE MASK 


SPBR ;UPDATE LINE STATUS WORD 
2a Ne Ree 

« * . = . 

BRWRTE BR, AA!SP1O -SHIFT STATUS LEFT 
MICPC=MICPC+1 

<HOVE! WRTEBR!BR! «AA! SPLO>> 


BR7 1 
MOM BRO CONE LOS-INITS3000%4 ! « 10$-INIT87772> 
< < - « - i 
BRWRTE IMM. 376 PMASK TO TURN OFF UNNUMB PENDDING 
MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <376>> 
Sp BR. AANDB. 
MICPC=MICPC+1 

(MOVE? SPX! BR! RANDB! SP 10> 
ALWAYS TEOM2 
CJURBALCONO! <TEORE- ~INITS300084> # « TEOM2-INIT8777 /2)> 
IMM, 176 CLEAR OK TC SEND AND UNNUMB PENPENDING 


;IF HDX SET---BRANCH TO CLEAR OK TO SEND 


;MASK TO LINE STATUS WORD 


BRWRTE 
MICPC=MICPC41 

SHOVE TURTEBR! IMM! (17) 
ALWAYS 5$ 
MICPC=MICPC+1 ae 
<JUMP!ALCOND! <S$-INITS3C00#4> !S$-TNIT “>> 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 ~ je pee le-8 PAGE: O126 


DOCNEW.MAC 21-APR-77 10:08 TIMSRV--TIMEQUT ROUTINE--SENDS 
150 .SBTTL TIMSRV--TIMEOUT ROUTINE--SENDS REP 
1511 "ENABLE LSB 
1512 015034 TIMSRY: SP IBUS, UBBR, SPO :REAC UNIBUS SR REGISTER 
(1) 001245 MICPC=MICPC+1! 
(1) 015034 123220 «MOVE ! SPX! IBUS! UBBR! SPO> 
1513 015036 BRWRTE IMM, 177 :MASK OFF BR REG 
(1) 001246 MICPC=MICPC+1 
(1) 025036 o00S77 (MOVE! WRTEBR! IMM! <177>> 
1514 :RESET TIMER---SLICK MOVE 
1515 ‘SINCE TIMER IS RESET BY WRITING 
1516 "A 1 AND THE EXPIRATION LOOKS 
1517 “LIKE 1--VOILA 
1518 o1S040 OUT BR. <AANDB! OBR> SAND THE BIT ON 
(1) 001247 SUT PCeMTere+ 
(1) 015040 061271 (MOVE ! WROUTX! BR! <AANDB! OBR> > 
1519 O1504e BRWRTE ®8R,SELA'SP1 ;READ STATUS BYTE 
(1) 001250 MICPC=MICPC+1 
(1) o1S042 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> : 
1520 015044 BR? IDLE ;IF IN MAINT. MODE DISABLE TIMER 
(1) 001251 MICPC=MICPC+1 
(1) O1SO44 103445 < JUMP! BR7CON! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2>> 
1521 o15046 SP BR DECA, SP1S ;DECREMENT THE COUNTER 
iD) 1 SE aiFe nicrcenicets| 'DECA!SP15> 
\ é 
1S22 Bt eee 2 c08 SIF ALL ONES HAS EXPIRED 
(1) 001253 MICPC=MICPC+1 
(1) QISOSO 111662 < JUMP ZCOND? <208- INI T&3O00%4) ! (20$-1NIT$777/2) > 
1523 015052 10$:  BRWRTE BR SELA 1SP10 -READ LINE STATUS 
(1) 001254 MICPC=MIC 
(1) O150S2 060610 CHOVETLRTEBREBR! (SELA! SPIO» ‘ 
1S24 015054 BR1 TABUPD ;NUMBERED MESSAGE IN PROGRESS 
(1) 001255 MICPC=MICPC+1 
(1) O1SOS4 116737 < JUMP! BRICON! < TABUPO-INIT83000#4> ! < TABUPD-INIT877772) > 
1525 015056 BRO TABUPD ; UNNUMBMSGIN PROGRESS 
(1) 001256 MICPC=MICPC+1 a 
(1) O1S0S6 116337 < JUMP * BROCON! < TABUPD-INIT&3000#4> ! < TABUPD-INIT877772)>> 
1526 015060 BRSHFT 
(1) 001257 MICPC=MICPC+1 
(1) 015060 001620 <MOVE ! SHF TBR! WRTEBR! SEL8> 
1527 015062 BRY 1OLE :START MODE 
(1) 001260 MICPC=MICPC+1 
(1) 015062 103045 < JUMP! BRYCON! < IDLE-INIT&3000%4> ! < IDLE-INIT8777/e>> 
1528 015064 ALWAYS SNDACK “ELSE SEND ACK 
(1) 001261 MICPC=MICPC+1 
(1) 015064 110727 < JUMP! ALCOND! <SNDACK-INIT&3000%4> ! <SNDACK-INIT$777 “2> > 
1529 015066 TIMEL: 
1530 015066 20$:  BRWRTE IMM,2 : 
(1) go 1262 MICPC=MICPC#1 
(1) O15066 O00402 ME VE TURTEBR! IMM! <2) > 
1531 O1 SP BR, SELB, SP1S RESET THE TIMER TICK COUNT 
(1) 001263 MICPC=NICP pt+] 
cd) 015070 063235 (MOVE !SPX! BR! SELB!SP15> | 
1532 015072 BRWRTE DP <SELAISP1O> :READ LINE STATUS WORD 
(1) 001264 MICPC=MIC 
(1) 915072 B€06i0 <MOVE ! ld NA TEBR! DP! <SELA!SP10)> 


DMC11 ODCMP PROTOCOL IMPLEMENTATION MACY11 30(10%6) IL1-JUL-77 12:18 PAGE 12-9 PAGE: O126 


DOCNEW.MAC _21-APR-77 10:08 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
1$33 015074 BRSHFT 
L ggry SBS ses filereoesns 
1S34 ptags? ;IF IN START MODE--BRANCH 
(h) 1 Sore MTGE: BESICON ON! <BSJ-INIT&3000*4> !<BS1- INIT8777/2). 
< 
l Bt e0a8 saute BADE CRras TS ;GET LAST NUMBER SENT 
(2) o1si00 beosee CHOVEIWRTEBR! BR! <DECA!SP12> 
r{ oe 
1536 Bt 102 one Bf SP17 COMPARE TO LAST ACKED 
(1) 001270 STCPCEMTCPESI 
(1) 015102 060377 <SUBTC!BR!SP17> 
1537 015104 2 10$ sIF £Q --SEND ACK 
(1) 001271 Arcpcemicpe+ 
(1) O1S5104 111654 < JUMP! ZCOND! < 10$-INIT83000#4> ! < 10$-INIT8777/2 > 
1538 015106 TIME2: LOMA IMM.T sLOAD ADDRESS OF TYPE FIELD IN UNNUMB SK 
(1) o1S108 B10iS3 (Sy 
1539 015110 MEMINC 3 :LOAD REP TYPE 
(1) 001273 MICPC=MICPCH1 
(1) 015110 016403 (MOVE ! WRMEM! INCMAR! IMM! <3>> 
1540 015112 MEMINC I ;ZERO THE SUB-TYPE 
(1) 001274 MICPC=MICPC41 
(1) 015112 016700 <MOVE ! WRMEM! INCMAR! IMM! <300>> 
1541 915114 LOMA IMM. REPCS ; CUMULATIVE REPS RECD 
(1) 001275 MICPC=MICP PC$] 
(1) 025114 910015 MOVE ! OMAR? IMM! <REPCS8377) > 
is42 015116 Se MX, SELB, SPO :COPY IT TO SPO 
(1) 001276 MICPC=MICPC+] 
(1) 015116 043220 <MOVE ! SPX! MEMX! SELB! SPO? 
1543 015120 MEM BR, INCA! SPO s INCREMENT IT 
1) 001277 MICPC=MICPC+1 
(1) 015120 O62460 CHOVETHAREN BR! <TNCA!SPO> : ; 
is44 015122 LOMA REPST : ADDRESS DYNAMIC REP COUNTER 
(1) 001300 HICPC=NICPCHi 
(1) O1S122 010003 <MOVE ELDAR! IMM? <REPST8377> 
1545 015124 BRWRTE MEMX, SELB -COPY IT TO THE BR 
(1) 001301 MICPC=MICPC+ +1 
(1) 015124 o040620 <MOVE ! WRTEBR! MEMX! <SELB> > 
1546 O151e6 BSHFTB 
(1) 001302 MICPC=MICPC+1 
(1) 015126 061620 <MOVE ! SHF TBR! SELB! BR> 
1547 015130 MEM 
(1) 001302 MICPC=MICPC+1 
(1) 015130 O62620 (MOVE ! WRMEM! BR! <SELB> > 
1s48 015132 BRO RTHRES 
1) 001304 MICPC=MICPC+1 ‘ 
(1) 015132 102352 < JUMP! BROCON! <RTHRES- ~INITB3OQ0#4) | RTHRES- -INIT8777/2>> 
1549 015134 BRWRTE IMM, 201 MASK FOR OK TO SEND 
(1) 001305 MICPC=MICPC41 
(1) 015134 000601 (HOVE! URTEBR! IN! <201> 
1550 015136 SP BR AORB, SPIO :OR IT IN 
(1) 001306 MICPC=MICPC+1 
(1) 015136 063310 <MOVE! SPX! BR! AORB! SP10> 
1551 O15140 ALWAYS IDLE 
1) 001207 MICPC=MICPC+1 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 
21-APR-77 10:08 


DOCNEW. MAC 


015140 


19044S 


MACY11 30(1046) 11-JUL-77 12:18 PAGE 1e-10 
TIMSRV--TIMEOUT ROUTINE--SENDS REP 
<JUMP!ALCOND! < IDLE-INIT83000#4> ! « IDLE-INIT8777/e>> 
.OSABLE LSB 


PAGE: 


0:27 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) LI-JUL-77 12:18 PAGE 12-11 PAGE: 0128 
DDCNEW.MAC  21-APR-77 10:08 TIMSRV--TIMEOUT ROUTINE--SENDS REP 

1555 O1S142 TEOM:  BRWRTE IBUS,UBBR 

(1) 001310 MICPC=MICPC+! 

(1) 015142 120620 (MOVE! WRTEBR! IBUS! <UBBR> > 

1556 015144 BRO RR ;NON-EXISTANT MEMORY 

(1) 001311 MICPC=MICPC+1 

(1) O1S144 116063 < JUMP! BROCON! <NXMERR-INIT&3000%4> ! <NXMERRSINIT8777/2> > 
1557 015146 BRWRTE I :EOM TO BR 

(1) 001312 MICPC=MICPCH1 

(1) 01514 o0040e2 (MOVE !WRTEBR! IMM! <2) > 

1sS8 015150 OUTPUT BR <SELBIOTHTCO> ;WRITE TMTR CONTROL 

(1) 001313 MICPC=MIC 

(1) 015150 06223] <MOVE ! WROUT 1BRY <SELBLOTATCO» 

1559 015152 OUTPUT BR. <SELB! TMTDAT> :WRITE GARBAGE DATA 

(1) 001314 MICPC=M cPeé+1 

(1) 015152 062230 «MOVE! 'BR! «SELB! TMTDAT> > 

1560 015154 BRWRTE BR, SELA!SPI :CKECK FOR BOOT MODE 

(1) 001315 MICPC=MICPC+1 

(1) O151S54 060601 afr eteon 

1561 015156 BR? BTEOM ;---IF SET IS MAINT MSG 

(1) 001316 MICPC=MICPC+1 

(1) 015156 113765 < JUMP! BR7CON! <BTEOM-INIT&3000%#4> ! <BTEOM-INIT8777/2>> 
1S62 015160 SP BR , : INCREMENT THE MESSAGE NUMBER 

(1) 001317 MICPC=MICPC+1 

(1) 015160 063072 <HOVE! SPX BRE INCA! SP12) 

1863 015162 ial TEOML: s ADDRESS LAST TMT LINK 

(1) o} 162 gous AICP ae ly reasro 

1564 615164 LDMA 

(1) 001321 LPCPCaMIcBCel 

(1) O15164 OS0220 «MOVE !LDMAR! MEMX! <SELB> > 

1565 015166 BRWRTE 

(1) 001322 MICPC=MICPC+1 

(1) O15166 O40620 (MOVE !WRTEBR! MEMX! <SELB> > 

1566 015170 BRO TEOM2 

(1) 001323 MICPC=MICPC+1 

(1) 015170 112334 < JUMP! BROCON! < TEOM2-INIT&3000%4> ! < TEOM2-INIT8777/2>> 
1567 015172 TEOM3: BRWRTE IMM, 37S : TURN OFF MESSAGE PENDING 

DD 015172 noose HOVE RT Esai re 

< 

1568 015174 SPBR BR BANDE ; 

(1) 001325 RIeECMIEPCMT 

(1) 015174 063670 HOVE ! SPBRX! BR! AANDB! SP10> 

1569 015176 BRO T IF UNNUMB PENDING--GO AWAY 

(1) 001326 MICPC=M mICPeed ij 

(1) 015176 112334 (UMP? BROCON! < TEOM2-INITS3000%4) ! <TEOM2-INIT3777/2>> 
1570 .SBTTL SNDACK--ROUTINE TO SEND AN ACK 

1571 015200 SNDACK: LDMA MM 

(1) 001327 MICPC=MICPC41 

(1) 015200 010153 <HOVE SLDMAR! IMM? <T8377> 

1572 015202 MEMINC 

(1) 001330 MICPC=MICP: Pct 

(1) 015202 O16401 (MOVE !WRMEM! INCMAR! IMM! <1>> 

1573 015204 

(1) 001331 MICPC=MICPC41 

(1) 015204 g0040S HOVE? URTEBR! IMM! <5) 

is74 015206 SA2:  MEMINC IMM, 300 


OMC11 DOCMP PROTOCOL IMPLEMENTATION 
MAC 21-APR-77 10:08 


DOCNEW. 
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15244 
015244 
015246 
015246 
015250 
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0152Se 


001332 
016700 


bessib 
001334 
000403 
001338 
100451 
001336 


120600 
001337 
10204S 
001340 
070604 
001341 


102505 


001342 
036400 


001343 
036420 


001344 
000402 
001345 
063004 
001346 
023100 
001347 
062004 
001350 
023120 
001351 
062105 
001352 
105367 
001353 
123200 
001354 


MACY 11 Ru DD dete alg? '8 PAGE 12-12 PAGE : 


SNDACK- 


MICPC=MICPC+1 
(MOVE! WRMEM! INCMAR! IMM! «300> > 


oer 


TEOMe: STATE THTA 
MICPC=MICPC+1 
«MOVE! E :WRTEBR? IMM! <TMTA-INIT8777/2>> 


ALWAYS XEX 
MICPC=MICPC+1 
<« JUMP! ALCOND! <XEXIT-INIT&3000#4> ! «XEXIT-INIT877772)> 


SA3: 


FUDGE: BRWRTE NPR READ NPR CONTROL 
bia a 0 RG 
BRO IDLE IF NPR GOING---LEAVE 
MICPC=MI 
CTUMET BROCON! < IOLE- ~INI 8300084 # < IDLE-INIT8777/2) > 
BRURTE BR'LDMAR, SELA! SPY ;LOAD THE MAR 
SS eet mantcensrerws 
BR7 -IF SET - READ BACK ALL 200 
MONE TeROCONE <BS2 INIT&3000%*4 ! (852 INIT8777/2>> 
MEMINC IBUS. INDAT1 OTHERWISE RESTORE TWO BYTES 
MICPC=MICPC+1 
oe Te nl IE 
MEMINC IBUS. INDAT2 5 
MICPC=MICPC+1 
(MOVE ! WRMEM! INCMAR! IBUS! < INDAT2> > 
BRWRTE IMM.2 ; UPDATE---UNIBUS ADDRESS 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <2>> 
BR, ADD, SP4 UPDATE NPR COUNTER 
NOE orspy) 
IBUS. IITBA1, SPO ; UPDATE ADDRESS LOW 
MICPC=MICPC+1 
<MOVE ! SPX! IBUS! IIBA1!SPO> 
OUTPUT BR,ADD! IBAL 
MICPC=MICPC+1 
(MOVE ! WROUT! AR! <ADD! IBAL>> 
ital ot 1BUS 1IBA2, SPO ;READ HIGH ADDRESS 
«MOV reeyry Ae! SPO> 
isi} i Aare ; UPDATE HIGH 
RICPC=nI Gee 2BR! «AC! TBA2> > 
— eeig et IF CARRY---UPDATE MXT 
< JUMP! CCOND! {RESEXT-INIT$3000%4 ! <RESEXT-INIT8$777/2>> 
RES1: SP IBUS, NPR, SPO :READ NPR REGISTER 
MICPC=MICPC+1 
<HOVE ! SPX? IBUS! NPR! SPO? 
ALWAYS TH3X :GO DO ANCTHER NPR 


MICPC=MICPC+1 


_——— ee ————s=ae 3 — oe +s 
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MACY 11 
SNDAC 


BTEOM: 


RLY: 


HOINCH: 


cS: 


N10 


30(1046) _l1-JUL-77 12:18 PAGE le-13 PAGE : 
K--ROUTINE TO SEND AN ACK 


< JUMP! ALCOND! < TH3X-INIT&3000#4> ! « TH3X-INIT877772)>> 
BRWRTE ST ila ;MASK FOR CLEAR MSG PENDING 


MAGE? TES! ree carey 
SP 

nicecentertel ; 
BR SELB, Pi3 STORE UNRECOGNIZABLE VALUE INTO SP13 


S 
MICPC=MIC 
(NOVE! SPX! BR! SELB! SP13> 


; TURN THEM OFF IN LINE STATUS WORD 


;SO “RH3” WILL EXIT BACK TO IDLE LOOP 
LDMA IMM, STC ;ADDRESS START OF TMT CHAIN 
MICPC=MICPC 


Pcti 
HOVE! LDMAR? IMM! <STC8377> 
MEMX 0 


MICPC=MIcPc+l Ss’ 
(MOVE! SPX* HENX? SELB! SPO> 
TSTATE NUMSYN sCHANGE XMIT STATE TO LINE IS IDLE 
MICPC=MICPC+1 

«MOVE! HRTEBR! IMM! <NUMSYN-INIT8777/2>> 

MICPC=MICPC 
MNGVETSPX'GR!SELB! SP2> 
ALWAY S TDON2 ;POST A DONE 
NICPC=NICE C+ 


1 
aS gprs tanec err ~INIT&777/2)>> 


MICPC=MICPC+1 
«MOVE! wohl re IMM! <RCVL-INIT8&777/2>> 

MICPC=MICPC+1 

LOVE: Pe 


SP ; 
MICPC=MICPC+1 
<MOVE! SPX! 1BUS# NPR! SPO? 


MICPC=MICPCH1 
CROVE!URTEER! Itt! <221>> 


ALWAY 
NICPC=MICPC+ 1 

< JUMP! ALCOND! <RK7-INIT&3000#4> ! <RK7-INIT&777/2>> 
SP IBUS. IIBA2, SPC 

MICPC=MICPC+ 

COVE! SPX! 1BUS# 1 1BA2!SPO> 
OUTPUT BR, INCA! IBAe ;QUTPUT INCREMENTED 8A 
MICPC=MICPC+1 

SAS VETHROUT! BR! <INCA! IBA2> > 
C S$ INCREMENT BYTEW COUNT 
NICPC=NICP C+1 


UMP! “mm Weptoreet !<S$-INIT877772)> 


ALWAY 
MICPC=MICPC+1 
< JUMP! a aes !<THB8-INIT877772>> 


- INCREMENT M 

IBUS READ NPR REG IWTH CURRENT MXT BITS 
MICPC=MICPC+1 
<MOVE2 SPX? TBUS!NPR! SPO? 
BRWRTE IMM,4 


;COPY LINK ADDRESS 


;READ NPR CONTROL REGISTER 


;WRITE BIT TO ADD 


ee er er ee ee Se ee o-——-- me- 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-14 PAGE: O13! 
DOCNEW.MAC 21-APR-77 10:08 SNOACK--ROUT INE 10 Se ND AN ACK 

(LD) 015320 areal CHOVETURTEBRY ret? 

1620 015322 esas OUT non Rad: ONPR ; TURN ON PROPER MXT BITS 

(1) 015322 061910 NS ETCR acorn 

1621 015324 

(1) 001401 SLOP CeMTChe+ 

: (p 015324 110565 STUMP TAL COND! <TH8-INIT&3000#4> ! < TH8-INIT8777/2> > 

i623 015326 HEMI: STATE TEOM 

(1) 001402 MICPC=MICPC+1 

(1) 015326 000716 CHOVELLRTEBR! IMM! ¢TEOM-INITB777/2> 

1624 015330 ALWAYS XEXIT 

(1) 001493 MICPC=MICPC+1 

ne 015330 100451 CJUMP! AL COND! « XEXIT-INIT83000#4> # « XEXIT-INIT8777/2)> 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-15 PAGE: 0132 
DOCNEW . MAC 21-APR-77 10:08 REP HANDLER 


1627 .SBTTL REP HANDLER 
1$28 015332 REP: LOMA IMM. REPCR :LOAD MAR ADDRESS WITH POINTER TO REPS REZC 
(1) 901404 MICPC=MICPC41 

(1) 15332 010016 Mee ETT OMAR! IMM! (REPCR8377>> 

1629 01 MEMX. SELB, SPO READ NUMBER OF REPS RECD 

(1) 00140S MICPC=MICPC 

(1) 015334 043220 <MOVE! SPX! MEMX! SELB! SPO> 
1630 015336 MEM OP, <INCA!SPO> s INCREMNT REPS RECD 

(1) 001406 MICPC=MICPC+1 

(1) 015336 O62460 (MOVE! WRMEM! DP! <INCA!SPO>> 

1831 015340 LOMA sodIMM. T sLOAD ACDRESS OF TYPE FIELD 
(1) 001407 HICPC=MICECH 

(1) O1S340 010153 (MOVE! LOMAR! IMM! <T8377>> 
1632 015342 MEMINC IMM 2 ; LOAD NAK TYPE 

(1) 901410 MICPC=MICPC41 

(1) o1S342 016402 (MOVE ! WRMEM! INCMAR! IMM! <2)> 

1633 015344 MEMINC IMM, 303 LOAD REP RESPONSE SUB-TYPE 
(1) 001411 MICPC=MICPC$1 

(1) 015344 916703 (MOVE! WRMEM! INCMAR! IMM! <303>> 
1634 015346 ALWAYS SNAK ;SEND AN UNNUMB MSG 

(1) p01412 MICPC=MICPC+1 
{R 91834 114712 JUMP! ALCOND! « SNAK-INIT&300084> ! <SNAK- -INIT8777/2>> 
1836 "SBTTL START HANDLER 
1837 0153S0 START: BRWRTE OP, <SELA!SP1O> :READ LINE STATUS WORD 

(1) 001413 MICPC=MICPC+1 

(1) 015350 060610 (MOVE! WRTEBR! TDP! <SELA!SP10>> ; 
1638 015352 BRSHFT GET START MODE BIT IN TESTABLE POSITION 
(1) 001414 pig rhs a ad 

(1) 015352 001620 MOVE! SHF TBR! WRTEBR! SELB> 
1639 015354 BRY 10$ IF IN START MODE SET STACK 
(1) 001415 ST CPC=NICP C+! 

(1) O1S3S4 117021 < JUMP? BRYCON! < 10$-INIT&3000#4> ! « 10$-INIT877772>> 

1640 ELSE SET UP START ERROR 

1641 015356 LOMA IMM, <<RTHRS+3>> 

(1) 001416 NICPC=NICPC pct 

(1) O1S3S6 610177 MOVE! Ma GAR! TMM! < <RTHRS+3)8377> > 

1642 915360 IMM 

(1) 001417 SraRTE Ie 2 

(1) 015360 000600 (MOVE! WRTEBR! IMM! <200>> 

1643 015362 ALWAYS RCEXY 

(1) 001420 MICPC=MICPC+1 

(1) 015362 114525 «JUMP #ALCOND} <RCEXY-INITS3000#4> # <RCEXY- -INIT87772>> 

1644 015364 10$:  LDMA SET UP ADDRESS OF TYPE FIELD 
(1) 001421 HICPCSNICPCSI 

(1) 015364 010153 <MOVE!LOMAR! IMM! <T8377>> . 

1645 015366 MEMINC IMM. 7 WRITE STACK TYPE 

(4) 001422 MICPC=MICPC41 

(1} 915366 016407 (MOVE !WRMEM! INCMAR! IMM! <7>> i 
1646 915370 BRURTE IMM. 11 SET START RECD AND UNNUMB PENDING 
(1) 001423 MICPC=MICPC$1 

(1) 015370 900411 (MOVE! WRTEBR! IMM! <11>> 

1647 015372 ALWAYS SA2 :SEND THE UNNUMBERED MESSAGE 
(1) 001424 MICPC=MICPC+1 

iy 015372 11073 “JUMP! ALCON! <SA2- -INIT$3000#4> !<SA2-INITS7772>> 

16 ; 
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1 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-16 PAGE: 0133 
MAC 21-APR-77 10:08 STACK HANDLER 
pelt, Fe STACK _HANDLER 


015374 STACK: ;MASK TO CLEAR START MODE 


isa74 Boose? RIGPCSMIOPCHT ”» 

piegee 0007 SP BR RARDE: SPi0 -CLEAR START MODE 
001426 Srcpcenrepeel 

015376 063270 «MOVE! SPX! BR! AANDB! SP 10> 

015400 ALWAYS Tine | ;RESET TIMER AND IDLE 


001427 ey ICPC+1 
018400 110662 < JUMP! ALCOND! < TIME1-INITS2000#4 ! < TIMEL-INIT8777/2> > 


we 


DMC11 DOCMP PROTOCOL a aime 
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01S4Ce 
B184os 
01S404 
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015406 
015410 


015410 
o1s4le 


01S4le 
015414 


015414 
015416 


O1S4i6b 
015420 
015420 
01S4ee 
015422 
01S4e4 


015424 
01S426 


015426 
015430 


015430 
015432 


015432 
015434 


015434 
015436 


015436 
o15440 
O1S440 
o1s44e 
o1s442 
o1s444 
o1s444 


21-APR-77 


001430 
023160 


901431 
062067 
001432 
115034 
001433 
104660 


001434 
1e3220 


00143S 
oc0404 
001436 
061011 


001437 
104660 


001440 
003290 


001441 
062212 
001442 
104575 


001443 
010070 


001444 
057220 


00144S 
062600 


001446 
060477 
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MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-17 P&GE : 
HANDLER 


STACK 


ICBA22: SP ne SPO ;READTHEHIGH CRDERBITS OF BA TO SPC 
nicpcengcpce 


Har eine ;OUTPUT THE INCREMENTED COUNT 


CROVE | WRO fe !< INCA! OBR2> > 
CCP Can H tor ;IF CARRY SET INCREMENT THE MXTSIT 


=MIC 
JURY CCONG! (SS-INITB3000%4) !<S$-INIT8777/2>> 


AL 
M =MICPC 
CJONP | ALCOND! <RK9-INIT83000%4> ! !<RKS-INIT8&777 72> > 


bp IBUS , UBBR , SPO 
NICPC=NICPCS +1 
MOVE! SPX! TBUS! UBBR! SPO> 


cs: 


OUT 
MICPC=MIC 
«MOVE! WROUTX! BR! <ADD! OBR> > 
ALWAY S RkKY 
MICPC=MICPC+1 
Salis eg <RK9-INIT&3000#4> !« etnies (tt! 
FLUSHI: sp IMM, 200, SPO LUSH THE RECVR 
MICPC=MICPC+1 
«MOVE !SPX! IMM! 200! SPO> 
OUTPUT BR Las taabeaattatal 
ype 
nOVESUROUT BR! «SELA!ORCVCO> > 


ALMA 
CSU? ALCOND! <CG1- ~INIT83000%4> ! <CG1= -INIT377772>> 

NAK : LDMA IMM, STC ;ADDRESS START OF TMT CHAIN 
norte rom 5108377) 

SP MX! INCMAR, SELB, SPO ;COPY IT TC SPO 
RICPCEMIGP Cai 


«MOVE! SPX! MEMX! INCMAR! SELB! SPO> 
BR, SELA! SPO 


MEM 

NICPC=MICPC HT eseLA'SPO>> 
BRWRTE BR. INCA!SP17. sGETLASTMESSAGE ACKED 
MO UE TURTEBR! BR! <INCA!SP17>> 

sp BR, SELB, SPle sCOPY TO CURRENT NUMBER 
MICPC=MICPC+1 

<MOVE1SPX1BR! SELB! SP12) 


SROECEMICPCH 
(MOVE! WRTEBR! IMM! <&>> 


;COPY START OF CHAIN 


;WRITE NUMBERED MSG PENDING 


AND LINE HAS GONE IDLE 
SP BR, AORB, SP1O 'SET IT IN LINE STATUS WORD 
MICPC=MICPC+1 
«MOVE! SPX! BR! AORB! SP1O> 


0134 


Sereda pie DOCMP PROTOCOL IMPLEMENTATION MACY 11 ake 11-JUL-77 12:18 PAGE 12-18 PAGE: 0135 


21-APR-77 10:08 STACK HANDLE 
1674 015446 SP BR, SELB, SP1S ;RESET TIMER COUNT 
(1) 001452 MICPC=MICPC+1 
(1) O15446 063235 (MOVE! SPX! BR! SELB! SP15> 
175 015450 ALWAYS _TEOM1 
(1) 001453 MICPC=MICPC+1 
(1) o1s4s0 110720 < JUMP! AL COND! < TEOM1- INITS3000"4» <TECHL- INIT8777/2) > 
1676 O15452 ININT: BRWRTE IMM. iS MASK FOR TURN OFF ALL SUT EXT MEM BITS + NxM 
(1) 001454 MICPC=MICPC41 
(1) o1s4¥s2 O004i5 (MOVE! WRTEBR! IMM! <15>> 
1677 015454 SP f ;READ BR CONTROL REGISTER 
C1) 001455 MICPC=MICPC+ 
(1) O15454 123220 <ROVE! Sx TBUS OER; SPO> 
1678 015456 SP ;MASK OFF VECTOR TO x04 
(1) 0014S MICPC=MICPC+1 
(1) 15456 063260 < es Lig 
1679 015460 BRWRTE IMM, 200 ;MASK FOR INTERRUPT 
(1) 901457 MICPC=MICPC41 
(1) 015460 000600 <HOVE! WRTEBR® IMM: < 200) 
1680 015462 OUT BR, AORB! OBR ; INTERRUPT 
(1) 001460 RICPCANICEt 
(1) O1S¥62 061311 «MOVE! WROUTX!BR# < AORB? OBR) : 
1681 15464 SP IBUS, INCON, SPO ;RESTORE INPUT CONTROLCSR 
(1) 001461 MICPC=MICPC+] 
(1) O1S464 123000 HOVE! SPX? TRUS! INCON! SPO> 
1682 O15466 ALWAYS NIOL EY 
(1) 001462 MICPC=MICP 
ib O1S466 100563 <JUMP?ALEORO! «NOLES INI T$3000#4> ! <NIDLEY-INIT8777/2>: 


ONC11 ry PROTOCOL lat 
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MACY11 30(1046) 11-JUL-77 12:18 PAGE 12-19 
NXMERR ---NON EXISTANT MEMORY HANDLER 


a | 
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NXMERR ---NON EXISTANT MEMORY HANDLER 


. SBTT 
NXMERR: (ona IMM, re ;ADORESS ERROR LINK 


NICPCSMICPCH 
VEEL tft « <RTHRS+3) 8377) 

MENING IMM. 1 

MICPC=MICPC41 

(MOVE! WRMEM! INCMAR! IMM! <1>> 

MEM IMM. 0 :NXM ERROR BIT 
MICPC=MICPC$1 

CHOVESURRER? I? <0> 

a HX SELB, SP10 :CLEAR STATUS 


HOVE! SPX eer SELB!SP10 
ALWAYS ae 
NICPCEMICECS 1 


«JUMP! ALCOND! «RCEXX-INITS3000#4> ! RCEXX-INITS777 72> > 
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MACY11 30(1046) ii-JUL-77 12:18 PAGE 12-20 PAGE : 


H11 


SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 


SELGSY: 


S$: 


10S: 


iss: 


20$: 


BPE BaD RPM HORE Ue Ue ses 


READCHARACTERINTO SPS AND THE SR 
nicPoomer 9 


VE! OCP eustncvonT! SPS) 
BR? iS$ ;SELECT SET?--BRANCH 
RICPC=MICEC+ 


< JUMP! BR7CON! < 1S$-INIT83000#4> ! « 15$-INIT877772>> 
BRWRTE AA'SPS -SHIFTBR LEFT 
NICPC=NI Pt+1 


VE! WRTEBR! BR! <AA!SPS> > 


BR :FINAL SET? 
MICPC=MI 

CIUMB!BRICON! 208-INITS3O00%) #208-INIT8777/2) 
BRWRT 77 “MASK TO BR 
SRE ccmrepch 

(MOVE! WRTEBR! IMM! <77>> 


;TURN OFF SELECTANDF INAL 


(MOVE! SPBRX! BR! AANDB! SPS > 
ALWAY BR. INCA, SP3'PAGE! 

MICPC=MICPC+1 

<JUMP! AU EONDIBR! INCR!SP3! PAGE!» 

sSET OK TO SEND 


BR ,AORB, SP10 ;IN LINE STATUS WORD 


ALWAYS S 
MICPC=MICPC+1 
< JUMP! ALCOND! <S$-INITS3000#4> ! « raatleedialt 4 
MM, 20 ! TCLEARACTIV 


SP BR ROR, SP10 SIN LINE STATUS WORD 
MICPC=MIC 
cMOVE 1SPX? 16R + ORB! SP10> 


AL 
MICPC=MICPC+ 1 
< JUMPSALCOND! < LOS-INITS300084> $< LCS-INITSI77 “2 | 


0137 
weo! 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30( 1046) L1-JUL-77 12:18 PAGE 12-21 PAGE : 


DDCNEW.MAC 21-APR-77 10:08 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 

17 “FUGITIVE RECEIVE ROUTINES---DON’T FIT IN PAGE 

1710 oO1SS34 RHI: BRWRTE IBUS, IOBAL :READ LOW BYTE OF IN BA 

(1) 015 net 1 aT i 

1711 pt 23 RCV vob :IF SET IS OOD TRANSFER 

(1) 001506 MICPC=MICPC 

(1) 015536 116111 (JUMP! BRGEON! <RCVODD- ~INIT&3000#4> ! <RCVODD-INIT877772) > 

1716 015540 STATE VKEO 

(1) 001507 ST CPEeNICPC ST 

(1) O1554O 000674 «MOVE ! WRTEBR# INM! <RCVKEO-INIT8777/2>> 

1717 015542 ALWAYS REXI 

1) 001510 MICPC=MICPC+ 1 

ast o1ss42 104422 < JUMP" ALCOND! «REXIT-INIT&3000%4> ! <REXIT-INIT877772) > 

é . 

1719 O1SS44 RCVODD: STATE _RCVKO1 

(1) 001511 MICPC=MICPC+1 

(1) OSS44 900626 <MOVE 2 WRTEBR? IMM! <RCVKOL-INIT8777/2> 

1720 015546 ALWAYS REXIT 

(1) 001512 MICPC=MICPC+1 

ASS o1ss46 104422 < JUMP ALCOND! <REXIT-INITS3000%4> ! <REXIT-INIT8777/2) > 

1722 015550 RCLOW: CMP MEMX, SP4 ;COMPARE LOW ORDER BITS OF COUNT 

(1) 001513 MICPC=MICPC+1 

(i) O1SSSO 040364 <SUBTC! MEMX! SP4> 

1723 O15S52 C RCFATL ;CARRY--TOO BIG 

LD 15552 ie retiyect St RcrATL- INI TS3000#4> ! <RCFATL-INIT8777/2>> 
< €? 

1554 pteee§ ALWAYS ene “ELSE CONTINUE 

(1) 001515 MICPC=MICPC+1 

(1) O1SSS4 104475 < JUMP" ALCOND! <RCS-INIT83000#4> ! <RCS-INIT8777/2>> 

1725 015556 RCFATL: (OMA IMM nt 

(1) 001516 MICPC=MICPC 

(1) O1SSS&6 010153 ME OUE? LDMAR? IMM! <T8377>> 

1726 015560 MEMINC IMM 2 

(1) 001517 MICPC=MICPCHI 

(1) O1SS60 016402 (MOVE !WRMEM! INCMAR! IMM! <2>> 

1727 015562 MEM IMM. 311 

(1) 001520 MICPC=MICPC41 

(1) O1SS62 002711 (MOVE !WRMEM! IMM! <311>> 

1728 015564 LOMA IMM. <<RTHRS+1>> sADDRESS ERROR LINK 

(1) 001521 AICP =MICPC41 

(1) 015564 610175 ROVE! DNR! Thm cRTHRS+1)8377> 

1729 015566 MEM INC IBUS, IOBAL 

(1) 001522 NICPC=MICPC+ +1 

(1) 015566 036540 MOVE !WRMEM! INCMAR! IBUS! < IOBAL>> 

1730 015570 MERINC IBUS, IOBA2 

(1) 001523 MICPC=MICPC+1 

(1) 015570 036560 <MOVE !WRMEM! INCMAR! IBUS! < IOBA2> > 

1731 015572 BRWRTE IMM, 2O 

(1) 001524 MICPC=MICPC41 

(1) 015572 ood4e0 MS OE TWATEBR! IMM! <20)> 

1732 015574 RCEXY: MEMINC IMM,O 

(1) 001525 MICPC=MICPC+1 

(1) 915574 O1&400 <MOVE ! WRM HEINCHARE IMM! (O> 

1733 01557 MEM L 

( 901526 Men ocenIeRCTl 


DMC11 DDCMP PROTOCOL IMPLEMENTATION 
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001527 
002212 


001530 
003001 
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MACY11 30(1046) Li-JUL-77 12:18 PAGE 12-22 PAGE: 


SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 


RCEXX: 


TDON3: 


TOONe: 


TDON4: 


(MOVE! WRMEM! BR! <SELB> > 


nICPC=HICPC he  earenaadsees ;FLUSH THE INPUT SILO 


SHOVE ADU! {ny 200! oRcvepy INIT MODE IN PORT STATUS WORD 


MICPC=MICPCH1’ 
<MOVE 1SPX# INN! 1!SP1> 


RYCECemrcpcs 


UMP? AL COND! <NTRS1- ~INIT&3000#4> ! <NTRSI1-INIT8&77772>> 


inate SUB! SP17 : COMPARE RESPONSE TO MSG NO 
mal ant 


BR? RH ;IF NEGATIVE EXIT 
MICPC=MICPC+1 
oS a «RH3-INIT8&77772>> 


nICP " sADDRESS THE TRANSMITLINK 
AVE beat GR! (SELA!SPO> 


01 


; TURN OF ASSIGNEDAND TMTED BITS IN FLAG 


NICPCENICPCS1 
< ROVE AMER? rm 
LDMA IMM, STC 


MICPC=MICPC+ 
tL MM! <STC8&377>> 
MEN TML 


niGpesnicee! TMM! <TMLLD> 
eae a 


MICPC=MICPC ect 
CHOVE!WRTEBRE I <TMLE>> 


CMP BR S 
MICPC=MICPC+1 
<SUBTCS ER: SP) 


;ASSUME WRAPAROUND 


; WRAPAROUND” 


;YES 


MIC 

ae ee INI T83000#4> ! < TDONY-INIT8777/2>> 

BRWRT : OFFSET FOR NEXT TMT LINK 
MICPC=MICPC41 


«MOVE! WRTEBR! IMM! <6>> 
BR 7 SPO 


MEM :UPDATE THE POINTER 
NICPC=MICPC +1 


VE! WRMEM! BR? «ADD! SPO> > 
LOMA IMM, NXTSP sADDRESS DONE LINK 
MICPC=MICPC41 
MOVE! LDMAR: IMM! <NXTSP8377> > , 

LDMA MEMX SELB!SPX!SP3 :ADDRESS THE LINK,COPYING 


MICPC=MICPC+ 

«MOVE! LOMAR! MEMX! <SELB!SPX!SP3> > 
;iTS_ADDORESS TO SPO 
;WRITE THE INTERRUPT TYPE 


nicPcetit CPC ci 

MEM! INCMAR! IMM! <200> > 

MEM BR, INCA! SPO ;COPY ACTUAL LINK ADDRESS 
MICPC=MICPC+1 


39 
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OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) 11-JUL-77 12:18 PAGE 12-23 PAGE: 0140 
DDCNEW.MAC  21-APR-77 10:08 SELQSY--ROUTINETOCHECK SELECT AND QSYNC 9AND DIDOLE LINE STATUS WORD 
(1) O1S642 062460 (MOVE! WRMEM! BR! < INCA! SPO) > 
7 . pt ees : LONA ws IRM NXTSP s ADDRESS PTR INT STACK 
+ 
(f} 015644 po a3a} MAS OE TT Amaat tems <NXTSP8377>> 
1755 015646 MEM IMM, INTSTK ; ASSUME WRAP AROUND 
(13 pO APRS nS rH Sea tet! CINT TK>> 
15dé Bt abds BRWRTE IMM, <<MMEND-2> > ; ADDRESS ENDOFINT STACK 
Lh gssego SER MS VOAgEoR pm cmeN0-2» 
1757 Bi 2be9 ; WRAPAROUND? 
(1) 001554 MICPC=MICPC41 
(1) 015652 060363 <SUBTC! BR! SP3> 
1758 015654 - Z cpcemt eer ; YES---BRANCH 
(1) O1S6S4 tsa Aires ' < TDON4YO-INIT&3000#4> ! < TDONYO-INIT&877772> > 
1759 015656 BRWRTE IMM.2 ;OFFSET TO NEXT PAIR 
(1) 001556 MICPC=MICPC41 
(1) 015656 o0040e (MOVE! WRTEBR! IMM! <2)> 
1760 015660 MEM BR. ADD! SP3 ;UPDATE POINTER 
(1) 001557 MICPC=MICPC+1 
(1) O1S5660 062403 «MOVE! WRMEM! BR! <ADD! SP2> > 
1761 015662 TDON4O: BRWRTE :WRITE INTERUPT PENDING 
(1) 001560 MICPC=MICPC41 
(1) 015662 o00420 (MOVE! WRTEBR! IMM! <20>> 
1762 015664 aaa SP oc BR RORB ,SP1 :IN PORT STATUS WORD 
(1) O1S664 Op 43Bt MI CUET Px *AORB! SP 1> 
1763 015666 LOMA —_—sIMM, ETC ;ADDRESS NEXT EMPTY PTR 
(1) 001562 MICPC=M cecil 
(1) 015666 010072 SASVE?L BRAK? MM! <ETC8377>> 
1764 015670 SP MEMX, SELB, SPO ;COPY IT TO SPO 
i guserg SEE Pathe see: spo 
1765 12B78 LDMA ‘IMM. STC :GET NEXT DONE PTR 
(1) 001564 MICPC=MICPC41 
(1) 015672 910070 (MOVE! LDMAR! IMM! <STC8&377>> 
1766 015674 CMP MX. SPO : IDENTICAL? 
(1) 001565 MICPC=MICPC+] 
(1) 015674 040360 <SUBTC! MEMX! SPO> 
1767 015676 2 RH3 :FINISH PROCESSING HEADER 
(1) 001566 MICPC=MICPC+1 
if } 015676 105567 < JUMP! ZCOND! <RH3-INIT83000#4> ! <RH3-INIT8777/2> > 
1769 015700 TDON1: LDMA IMM, ISP17 :GET LAST ACKED 
(1) QUs700 SrateS MOVE TL DHAK? IMM! <ISP178377> 
NO < H : ; 
1930 1570e p MEMX Cri epi? ;STORE IT IN SP17 
(1) 001570 MICPC=MICPC+] 
(1) 015702 043237 <MOVE ! SPX! MEMX! SELB! SP17> 
1771 015704 Lona MM. STC ;GET START OF TMT CHAIN 
(1) 001571 MICPC=MICPCH1 
(1) 015704 010076 «MOVE! LDMAR! IMM! <STC&377> > 
1772 015706 LOMA _-MEMX. SELB! SPBRX!SPO sADDRESS THE LINK 
(1) 00157 MICPC=MICPC+ 
(1) O1S706 605362 <MOVE! LOMAR! MEMX! «SELB! SPBRX!SPO> > 
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0:S714 


015714 
015716 


015716 
015720 


015720 


01S72e 


01S72e2 
015724 


015724 
015726 


015726 
015730 


015730 
0i573e 


18738 
015734 
015736 


015736 
015740 


015740 
015742 


015742 
015744 


001573 
0S4620 


001574 
116832 
001575 
104567 
001576 
000404 


001$77 
114671 


001600 
023336 
001601 
115605 
001602 
000406 
001603 
060360 


001604 
115613 


001605 
060601 
001606 
001620 
001607 
106751 


001610 
001620 


001611 
106743 


001612 
104661 


001613 
063164 


MACY11 30(1 Ho) iM 1-JUL- SS 
SELQSY--ROUTINETO 


ot PAGE 1 
HECK SELEC QSYNC ARO” DIDOLE LINE STATUS WORD 


BRURTE MEtKs INCHAR, ,SELB :GET THE FLAGS 
THOVE THRTEBRE MEMX! INCMAR! <SELB> > 

BRI TOONS sIFBUFFER ASSIGNED PROCEED 
MICPC=MICPC+1 


vod he !< TDON3-INIT&77772> > 


ALWAY ;ELSE---EXIT 
yy gs C+1 
«JUMP! ALCOND! <RH3- INI T&3000#4> ! <RH3-INIT8&77772>> 


OVRRUN: BRWRTE IMM 

MICPC=MICPC41 

(HOVE! WRTEBR! IMM! <4) > 

ALWAYS NTRSO 

NICPCEMIC CPC+1 

« JUMP! ALCOND! <NTRSO-INIT&3000#4> ! <NTRSO-INIT8777/2> > 
; INPUTS: 
; SPO = RECEIVE CHARACTER 
PASWRD: SP IBUS ,LNOSW,SP16 ;READ PASSWD SWITCH 


10S: 


20$: 


MICPC=MICPC+] 

(MOVE ! SPX! TBUS! LNOSW! SP16> 
2 :IF ALL ONES NO RLD ENABLED 
MICPC=MICPC+1 


< JUMP! ZCOND! < 10$-INIT&3000#4> ! < 10$-1NIT8777/2) > 
BRWR :CHECK FOR ENTER MOP MODE 
MICPC=MICPC41 


toate et alate 


nae 
<SUBTC! 1SPO> 

:IF EQUAL ENTER MOP 
7 TCPCANTePe 


SRE BP Lent SON em eae 


«MOVE! URTEBR! BR! (SELA!SPL>> 
SHF T 


BR 
AICP cant Cres! 

«MOVE ! SHF TBR! WRTEBR! SELB> a 
BR1 RHX ;MESSAGE WITH NO BUFFER ASSIGNED 
MICPC=MICPC+1 


< JUMP! BRICON! <RHX-INIT&3000#4> ! <RHX-INIT877772>> 
BRSHF T ;SHIFT RIGHT AGAIN 
MICPC=MICPC+1 


CHOVE! SHE TER! MRTEBR! SELB> 
1 RCV 7 ;DLE RECEIVED IN NORMAL MODE 


=MICPC+1 
<« JUMP! BR1CON! <RCVMO-INIT&3000#4> ! <RCVMO-INIT877772>> 
ALWAYS RK3 ;HANDLE MAINT MODE MESSAGE 
MICPC=MICPC+1 


< JUMP! ALCOND! <RK3-INITS3000%4> ! «RK3- INIT8777/2>> 
SP BR, DECA, SP4 :COUNT FOR NUMB OF COMPARES 
MICPC=MICPC+4 1 

«MOVE! SPX! BR! DECA!SP4> 


;SHIFT IT RIGHT 


mn eee _— eee wee oo 


PAGE: 
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DOCNEW.MAC §_ 21-APR-77 10:08 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 

1795 015752 STATE Me 

(1) 001614 MICPC=MICPC+1 

(1) 015752 000746 <MOVE! LHRT BR TMM! cEN2-INIT8777/2>> 

1796 015754 mites 

(1) 001615 é cecanIc 

(1) O1S754 104422 GMP TAL COND! (REXIT-INIT83000%4» ! (REXIT-INIT8777/2) > 

1797 015756 RCVM1: (one IMM, ISP11 “ADDRESS SP11 IMAGE 
(1) 001616 MICPC=M =MICPC41 

(1) 015756 010171 NOVE!LDMAR? IMM# < 1SP118377> > 

1798 015760 MEM BR, DECA!SP11 :COPY SP11 

(1) 001617 MICPC=MICPC+1 

(1) 015760 062571 (HOVE! WRMEM! BR! <DECA!SP11>> 

1799 015762 LOMA. si TSP 

(1) 001620 MICPC=MICPC41 

(1) 015762 010241 (MOVE! Lona? fs cworsP8377>> 

1800 015764 SP MX!LDMAR, SELB, SP3 :COPY TO SP3 
(1) 001621 MICPC=MICPC+1 

(1) 015764 053223 «MOVE ! SPX! MEMX! LDMAR! SELB! SP3> 

1801 015766 MEMI 204 :RECEIVE DONE IMAGE 
(1) 001622 MICPC=MICPC41 

(1) 015766 O16604 <MOVE ! WRMEM! INCMAR! IMM! <204> > 
1802 015770 MEM BR! LDMAR, SELA!SP14 :COPY LINK ADDRWESS TO NEXT INTE 
(1) 001623 MICPC=MICPC+1 

(1) 015770 072614 (MOVE ! WRMEM! BR! LDMAR! <SELA!SP14> > 
1803 015772 MEMINC IMM ;ZERO THE FLAGS 

(1) 001624 MICPC=MICPC41 

(1) 015772 016400 COVE !HRMEME INCHAR! INI! <O> > 

1804 015774 SP IBUS, IOBA1, SP4 ;GET BEGIN ADDRESS LOW 
(1) 001625 MICPC=MICPC+] 

(1) 015774 023144 «MOVE ! SPX? TBUS! TOBA! SP4> 
1805 015776 SP IBUS, IOBA2, SPS ;AND HIGH BYTE 

(1) 001626 MICPC=MICPC+] 

(1) 015776 023165 <MOVE! SPX! BUS! 10BA2! SPS) 

1806 016000 SP MEMX! INCMAR, SUB, SP4 ; SUBTRACT TO GET COUNT 
(1) 001627 MICPC=MICPC+1 

(1) O16000 057344 <HOVE! SPX? MEMX? INCMAR! SUB! SPY» 

1807 016002 C IF CARRY SET THEN NO CARRY! 
(1) 001630 SICPCeMICPe+ 

(1) O1e002 115232 (JON COONG! 108-1NITS3000e% ¢10$-INIT877772)> 

1808 016004 SP ;DECREMENT HIGH BYTE OF ADDRESS 
(1) 001631 MICPC=MICPC+1 

(1) O16004 063165 pee iy) nS 

1809 016006 10$: SP MEMX! INCMAR, SUB, SPS ; SUBTRACT FOR COUNT 
(1) 001632 MICPC=MICPC+1 

(1) 016006 057245 «MOVE ! SPX! MEMX! INCMAR! SUB! SPS> 

1810 016010 MEMINC BR SELA!SPS :COPY TO MEMORY LINK 
(1) 001633 MICPC=MIC 

(1) 016010 076605 <MOVE ! WRMEM PTNoMaR BR: <SELA!SPS>> 

1811 016012 MEMINC BR, SELA!SPY 

(1) 001634 MICPC=MICPC+1 

(1) 016012 076604 (MOVE ! WRMEM! INCMAR! BR! <SELA!SP4> > 

1812 O16014 BRWRTE IMM 

(1) 001635 MICPC=MICPC41 

(1) 016014 o00402 <MOVE! WRTEBR! IMM! <2) > 

1813 O16016 LOMA IMM, NXT ;ADDRESS NEXT INT STACK 
(1) 001636 MICPC=MICPC41 


N11 


DMC 11 DOCHP PROTOCOL IMPLEMENTATION MACY11 30(1 2:18 PA -2 PAGE: 0143 
DOCNEW.MAC §21-APR-77 10:08 OO SOO TRE rote Stiect ANB os one Ao Broove LINE STATUS WORD 

(1) 016016 010241 <HOVE!LDMOR! IPE <NXTSPE377) > 

Hoesen BEERS CUGES hs 

(1) Ol ngte *<ADD!SP3>> 

1815 pt epss IMM. <<MMEND-2> > ;ADDRESSEND OF INT STACK 

h) 016022 i MESS THATEGR! IMM! <<HMEND- -2))) 

1816 016024 CMP BR, SP3 ; WRAP AROUND 

(1) 001641 MICPC=MICPC+1 

(1) 016024 060363 <SUBTC! BR! SP3> 

1817 016026 2 RMIFLP ; IFYES-- BRANCH 

(1) 001642 MICPC=MICPC+Ii 

(1) 016026 115644 «JUMP? ZCOND! <RINTFLP-INIT&3000%4> <RMIFLP-INIT8&77772) > 

1818 016030 aLwa YS RIX! 

(1) 001643 MICPC=MICPC+1 

(1) 016030 114645 < JUMP! ALCOND! <RMX1-INIT&3000#4> ! <RMX1-INIT&77772> > 

1819 016032 RMIFLP: MEM IMM. INTSTK 

(1) 001644 MICPC=MICPC41 

(1) Ol 002642 <MOVE ! WRMEM! IMM! <INTSTK> > 

1820 016034 RMX1: 

1821 016034 LDMA —_—IMM.LRC 

(1) 016034 yteat MEO UE LOOK -, SEES 

1822 016036 BRWRTE IMM.S ; INDEX TO NEXT BUFFER 

(1) 001646 MICPC=MICPC41 

(1) 016036 oO0040S (MOVE! WRTEBR! IMM! <S>> 

1823 016040 SP BR, ADD, SP14 ;UPDATE COPY OF POINTER 

(1) 001647 NICPC=MICPCS 1 

(1) O16040 063014 TEUE? SPX! BR! ADD! SP14> 4s 

1824 016042 BRWRTE IMM, STC ;ADDRESS OF WRAP AROUND POINT 

(1) 001650 MICPC=MICPC41 

(1) o16042 000470 <MOVE! WRTEBR! IMM! <STC>> 

1825 016044 CMP BR, SP14 : WRAPAROUND? 

(1) 001651 MICPC=MICPC+1 

(1) O16044 060374 <SUBTC! BR! SP14> 

1826 O16046 2 RMFLIP ; IF YES---BRANCH 

(1) 001652 MICPC=MICPC+1 

(1) O1604% 115655 < JUMP! ZCOND! <RMFLIP-INITB3000%4) <RMFLIP-INIT&777 72) > 

1827 016050 MEM BR SELA 'SP14 :ELSE UPDATE THE POINTER 

(1) 653 TROVE NUARER? 

(1) 016050 614 ERIE! <SELAYSPIY> 

1828 016052 ALWAYS 

DD 1 aOaEEE ieee OND RIK ~INIT&30N0%4> # <RMX-INIT8777/ 

( 

1 pt ebes RMFLIP: taN :POIN to FIRST LINK 

(1) 001655 opCaNIorcti 

(1) O16054 o02425 MOVE LMRMEM! IMM! <RCLL> > 

1830 016056 RMX:  BRWRTE IMM. 20 ;MASK FOR INTERUPT PENDING 

(1) 001656 MICPC=MICPC41 

(1) 016056 o00420 TNSVETWRTEGR! IMM! <20)> 

1831 016060 SP OP AORB, SP1 ;UPDATE PORT STATUS WORD 

(1) 001657 MICPC=MICPC+1 

(1) O16060 063301 «MOVE! SPX! DP! tAORB! SP! L> 

1832 016062 BRWRTE OP <SELA!SP1O> :READ LINE STATUS WORD 

(1) 001660 MICPC=MIC 

(1) O16062 060610 SASVETURTEBR! DP! <SELA!SP10) > 


0144 


;IF CLEAR ACTIVE SET---FLUSH 


<« JUMP! BRYCON! <FLUSH~INIT83000#4> ! <FLUSH-INIT8777/2>> 


;ASSUME QUEUE WRAP AROUND 


;SHIFT LEFT 


QSYNC AND DIDOLE LINE STATUS WORD 


PAGE 12-27 


ON! <OVRRUN-INIT&3000#4> ! <OVRRUN-INIT8777-2>> 


UP TAL COND! (REXIT-INIT&3000#4> ! <REXIT-INIT&777/2> > 
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30(1046) Ll-JUL-77 1 8 
“ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
ty 


:18 PAGE le-2 PAGE: 


;IT DID WRAP AROUND 


M =" 
APPT acs twrrssooou: ! <NTRS2-INIT877772>> 
;OFFSET TO NEXT PAIR 


;UPDATE QUEUE POINTER 


— IMM.20 
MICPC=MICPCH1 
<HOVE!HRT Imm <20)) 
RIORCSHIGRC AL cn, 

Tei ; sFLAGGED BY ERROR TYPE 
MICPC=MICPC+1 


< JUMP ® BROCON! < TAB1-INIT&3000%4> ! < TABL-INIT8777/72> > 
LOMA —sIMM. ISP11 

MICPC=MICPC41 

(ROVE! LDMOR® In? <1SP118377> 


eee icleren eres 
"BR. INCA, SP11 » INCREMENT MSG EXPECTED 
MICPC=MIC 


+ 
<MOVE ! SPX! BR! INCA! SP11> 
BRWRTE IMM, 1 ;UNNUMB PENING BIT TO BR 
MOVES rm» 
SP BR, AORB, SP10 ;UPDATE LINE STATUS WORD 
NICPC=HICPC+1 
VE! SPX! BR! AORB! SP10> 
LUSH 


MICPC=MICPC+1 
TUNE! ALCOND! <FLUSH-INIT&3000#4> ! <FLUSH-INIT8777/2> > 


IMM, 24 


a 


% 


% 


C 
«MO TWROUT BR! <SELB!OBA2> > 
x IBUS Boers ,9P0 ;READ BM873 ADORESS--- 


PC+ 
<MOVE ! SPBRX nt idan 


OUTPUT BR, SELB! OUTDA :SET UP LOW BYTE OF ADDRESS 
MICPC=MICPC+1 


ee er ee ee ee me cme - -—-_ -— -—— = 


BOER RAC Sl oRPR-AP 6:68 
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062222 
sire 

766 
001727 
062223 
001730 
0004e1 


001731 
061231 


001732 
061230 


001733 
120600 


001734 
102372 


001735 
002662 


001736 
100765 


001737 
023640 


001740 
06040C 
001741 
LO344S 
001742 
010156 
001743 
090402 
001744 
076670 


001745 
076611 


00174E 
076612 


001747 
076617 


ss cial Zeki o6(GE ARo°Broove LINE STATUS WORD PAGE: 


EME: 


EMI: 


TABUPD: SPBR 


TABI: 


oat nS 


TU ec 


OUTPUT BR SELB! OU ; 
RicPC-ncPtl T!BR! «SELB! OUTDA2> > 
BRWRTE IMM 21 :MASK FOR TIMER AND ALSO TO START NPR 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <21)> 
OUT BR, «SELB! OBR> 
NICPC=NICPC# | 

ROVE! WROUTX? BR SEL OBR> > 


OUT <SELB! ONPR> 
ST CPCeMTEPesT 

CHOVETHROUTX! BR! (SELB! ONPR) > 

BRWRTE IBUS, NPR :READ NPR CONTROL 
MICPC=MICPC+l 

aie 


MICPC=MICPC+1 
a «CKTIME-INIT&3000#4> ! shes Hy SAGs > 


MEMADR 

MIP ReNICPC+I 

(MOVE! WRMEM! (RM1-INIT877772>> 

meses 

< JUMP! ALCOND! <ACLOW-INIT$3000#4> ! <ACLOW-INIT8777/2>> ; 
IBUS. RCVCON, SPO READ RECEIVER CONTROL REG 

MICPC=HICPC+ +1 


MOVE : SPBRX? IBUS? RCVCON: SPO) 
TE BR, ADD! SPO 


BRURTE 

MICPC=MICPC+1 

SHOVE TWRTEBR! BR! <ADO! SPO) > 
BR :RECEIVE ACTIVE--IDLE 
MICPC=MICPC+1 


page ag INITS3000#4> !< IDLE-INIT877772)> > 


DMA I 
pn ay Sn Pct] 
TOMAR! TMM! <IMG1O8377>> 


SRURTE 
"AGU UATE ORS Te 2)» 
< 
MEMINCG BR. AANDB!SP1O :SAVE BIT 1 OF SPIO 
MICPC=MICPC+1 
<HOVE :HRMEH! INCHAR! GR! <AANDB! SP1O> 
MEMINC BR,.SELA!SP1 :SAVE SP11 


;HIGH BYTE BASE FOR ROM BOOT 


a 


;SHIFT LEFT 


MEMINC BR, SELA!SPi2 ;SAVE SPle2 


IC 
<MOVE t HREM? INCMAR# BR! SELA!SP12> os 

MEMINC BR. SELA!SP17 ;SAVE SP17 

MICPC=MICPC+1 

“MOVE! WRMEM! INCMAR! BR! <SELA!SP17>> 


0146 
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6) 1l- 
SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 


DDCNEW. 1-APR-77 
1891 O16242 STATE Ree :NOTE: THE BRG CANNOT BE CHANGED FROM THIS 
(1) 001750 NICPC=MICPC 
(1) O16242 000461 CHOVE WATESRE IMM! (RB2- ~1NIT8777/2>) 
1892 “POINT UNTIL THE BRANCH TO RBO 
1893 016244 CMP 
(1) 001751 nicecenrcrtl 
(i) O16244 060363 <SUBTC! BR! SP3> 
1894 O16246 2 
(1) NICPC=NICPC+1 
ae) 016246 101445 TUNE? ZCOND! < IDLE INIT&3000#4> ! < IDLE-INIT8777/2>> 
189% 016250 bp MEMX, SELB, SP13 
(1) 001753 MICPC=MICPC+] 
(1) 016250 043233 «MOVE! SPX! MEMX! SELB! SP13> : 
1897 016252 PSTATE TBUI NEW PORT STATE ADDRESS 
(1) 016252 MEM IMM, << TBUL-INIT877772) > 
(2) 901754 MICPC=MICPC41 
(2) 016252 002775 (MOVE! WRMEM! IMM! << TBUL-INIT877772> >> 
1898 016254 SP IMM. 4, SP4 ; INITIALIZE COUNT 
(1) 001755 MICPC=MICPC41 
(1) 016254 903004 «MOVE! SPX! TMM! 4!SP4) 
1898 sNOTE: FIRST & RAM LOCATIONS ARE NOT WRITTEN 
190i 016256 LOMA —_—sIMM. BASE "MAR NOW POINTS TO BASE 
(1) 001756 MICPC=MICPC41 
(1) 016256 010017 «MOVE !LDMAR! IMM! <BASE8377> > 
1902 016260 ALWAY S :THE BRG MUST BE PRESET TO STATE RBZ 
(1) 001757 MICPC=MICPC+1 
(1) O16260 104443 < JUMP! ALCOND! <RBO-INIT&3000#4> ! <R80-INIT8777/2>> ae 
1803 Olb26e EC2:  BRWRTE IMM.2 : INCREMENT COUNT/TES? 
(1) 001760 MICPC=MICPC41 
(1) Ol6262 900402 (MOVE! WRTEBR! IMM! <2>> 
1904 016264 SP BR, ADD, S 
(1) 001761 MICPC=MICPC+1 
(1) 016264 063004 (MOVE! SPX! BR! ADD! SP4> - 
1905 01 SP IBUS. I0BAl , SPO :POINT TO NEXT ADDRESS 
(13 001762 MICPC=MICPC+1 
(1) Ol 023140 «MOVE! SPX! IBUS! 1OBA1! SPO) 
1906 016270 ouTPUt BR. ADD! OBA! 
(1) 001763 MICPC=MICPC+1 
(1) 016270 O62006 <MOVE! WROUT ! BR! <ADD! OBAL>> 
1907 016272 SP IBUS, 10BAe, SPO 
(1) 001764 MICPC=MICPC+ 
(1) Ol6272 023160 <MOVE ! SPX! TBUS! IOBA2! SPO> 
1908 916274 OUTPUT BR, AC? OBRe 
(1) 001765 MICPC=MICPC+1 
(1) 016274 062107 CHOVE THROUT!BR! <AC!OBR2> > 
1909 916276 C TABMXT 
(1) 001766 MICPC=MICPC+1 au. 
{ 1) 016276 105373 < JUMP! CCOND! < TABMXT-INITS$3000#4> !< TABMXT-INITS8777 2) > 
19i1 016300 ECX:  BRWRTE BR!LDMAR, SELA! SPY sREAD COUNTER 
(1) 001767 MICPC=MICPC# 1 
(1) 016200 070604 (MOVE !WRTEBR! BR!LOMAR! <SELAISP> > 
1$i2 O16302 BR? 20$ ALL DONE 
(hd 901770 MICPC=MICPC41 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACYL1 30(1046) L1-JUL-77 12:18 PAGE 12-31 PAGE: O14 
DOCNEW.MAC  21-APR-77 10:08 SELQSY--ROUTINETOCHECK SELECT AND QSYNC AND DIDOLE LINE STATUS WORD 
(1) 016302 117774 < JUMP! BR7CON! <20$-INIT&3000#4 ! <20$-INIT8777/2>> 
1913 016304 = OUTPUT HENX! INCHAR, , SELB! OUTDAI :STORE COUNTS OF ERRORS 
ra = 
(1) 016304 pen 524 TARE TROUT! HEMX 'INCMAR! «SELB! OUTDAL> > 
1914 016306 OUTPUT MEMX! INCMAR, SELB! OUTDA2 
(1) 001772 MICPC=MICPC+1 
(1) 016306 056223 (MOVE! WROUT ! MEMX! INCMAR! «SELB! OUTDA2> > 
1915 016310 ALWAYS RKB 
(1) 001773 MICPC=MICPC+1 
i) 016310 104641 < JUMP! ALCOND! <RK8-INIT&83000#4> ! <RKB-INIT877772>> 
1917 016312 20$: LOMA zee PRTST 
(1) 001774 MICPC=MICPC Pct 
(1) 016312 010162 HOVE! LOMAR® IMM! <PRTST8377>> 
1918 O1 1.4 MEM BR. SELA!SP13 
(1) 001775 NICPC=NICP cpt+l 
(1) 016314 062613 <MO VELURTEN? BR! <SELA!SP12>» 
1319 016316 ALWAYS 
(1) 001776 MICPC=MIC RpC+ ae) 
(1) 016316 114662 STUMP AL COND! «RMI - ~INIT$3000#4> ! <RMI-INITS777 2) 
1920 016320 $ZER 
(1) 001777 MICPC=MICPC+1 
(1) 016320 900099 ooo000 
1921 990001 


. ABS. 016322 coc 


ERRORS DETECTED: 0 


COCMP/CRF /DS: CRF «DMCNEW, LOW, COCNEW 
BON-TIME: 5 280 SECONDS 

RUN-TIME RATIC: 70/13 

CORE USED: SK {jl ences 
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GENERAL UTILITIES <TYPEOUT, ERROR, SCOPE, ETC) 
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10g€ RCVKO1--ROUTINE TO ANOLE FIRST BYTE ODD RECEIVE 
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VKE- E EVEN Yeas 

V{=—S4ORE_UNNURBERED RE 

RCVJ--ROUTINE TO HANOLE "SUBTYPE TTELO, SELECT AND FINAL 
VR- MESSAGE RESPONSE FIELD 


RCVR--UNNUMBE RED 
RCVQ-- f > seempsiontey FIELD 
OF DATA MESSAGE 


E RLO 
wwe EXISTANT MEMORY HANDLER 
TRANSMITTER DISPATCH ROUTINE 


MTA--F R 

i Fe -Siar PRET EL ORR 
TMTC--OUTPUT SECOND CHAR OF COUNT 

TMTD--RESPONSE FIELD-NUMBERED MESSAGE 

TMTE--NUMBER FIELD--NUMBERED MESSAGE 

apo MSG ADDRESS FIELD 


NUMBERED MSG 
TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 
TMTI--SEND pan ag I TYPE LD 
TMTJ--SEND SUB-TYPE FIELD 

TMTK--OUTPUT RESPONSE Fie. (UNNUMB MSG) 
TMTL--UNNUMB 


SNDACK--ROUTINE TO SEND AN ACK 
REP HANDLER 

START HANDLER 

STACK HANDLER 
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-SBTTL NEW CSR BOARD CHANGES 
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MACY11 30(1046) 11-JUL-77 12:25 PAGE 1 
COPYRIGHT 1975 DIGITAL EQUIPMENT CORPORATION 


NEW=0 
; MICROPROCESSOR Ee WORD DEFINITIONS 


=0 
JUMP=100000 
1BUS=20000 anaes 
Aewxcuoood OES ie 
BRx=60000 
=  OURCE BR 
=60000 ;SOURCE BR 
LDMAR=10000 MARL LO 
INCMAR=14 :MA-INCREMENT MAR 
WRTEBR=400 ‘DEST-WRITE BR 
WROUTX=1000 :DEST-EXTENDED IBUS 
SHF TBR=1400 :DEST-SHIFT BR LEFT 
IROUT= :DEST-WRITE OUTPUT 
lk QMEM=2400 ‘DEST-WRITE MEMORY 
SPX= : DEST-WRITE 
SPERX=3400 :DEST-WRITE SP AND BR 
; FUNCTIONS 
SELf=2 ;FUNCTION-SELECT A 
SELE=220  FUNCTION-SELECT 
AORNB=240 :FUNCTION-A OR NOT B 
AANC B= : ION A AND B 
AORE=300 : ION-A OR B 
AXORB=320 ;FUNCTION A XOR B 
SUB::340 SUBTRACT 
GUBTC=360 UNC TION- TWOS COMPLEMENT SUBTRACT 
D0::0 :ADD A+B 
aes eee 
ey + NERENEN TA 
Ac=100 if PLUS CARRY 
AA=120 LUS A 
s ‘A ptt A PLUS C 
DECA=160 ‘DECREMENT A 
“END FUNCTIONS 
PAGE | =400 
PACES: =14000 
CCOND=1000 ;CONDITION C 
ZCOND=1400 :CONDITION 2 
COND=400 ALWAYS 
BROCON=2000 ‘CONDITION BRO 
BRICON=2400 :CONDITION BR1 
BRYCON=3000 :CONDITION BRY 
BR7CON=3400 “CONDITION 8R7 


eee — ewes ee - - —_ 
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OL ES gg a I et I Se a a ao 
Re 
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cococo 
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MIERO  IRGTRUCTION DEFINITIONS; > PACE & ee 


‘ern MICRO INSTRUCTION DEFINITIONS 
. SBTT BRANCH INSTRUCTIONS 


sumP=100000 ; JUMP OP CODE 

/SBTTL INDEXED BRANCH INSTRUCTIONS 
“SBTTL MOVE INSTRUCTIONS 

MOVE=0 ;MOVE OPCODE 
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000014 
000017 
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MACY11 30(1046) 1L1-JUL-77 12:25 PAGE 3 PAGE : 


INPUT/OUTPUT ASSIGNMENTS 


-SRTIL ANEYI/QUTPUT ASSIGNMENTS 
tNCON=0+ 100000 


PORT S= ee 


EXTENDED OBUS 


S 
OLUMAN=17 


360 
US ASSIGNMENTS 


;IN CONTROL CSR 
ey ght ay REGISTER 
‘OUT CONTROL CSR 


: IN NU. ITCH 
M873 AD 
*LINE UNIT MAINTAINENCE 


s IN oe - CSR 
OUT CONTROL CSR 
NUSED 


7 
;NPR_ CONTROL 
BR CONTROL 


;OUTPUT DATA LW BYTE 
;OUTPUT DATA HIGH BYTE 
:OUTP ad BA LOW BYTE 
;OUTPUT BA HIGH BYTE 

s INPUT BA LOW BYTE 

; INPUT BA HIGH BYTE 
;TMTR DATA 

;THTR ring 


; R E 
LINE UNIT MAINT. 
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DMC-11 MICROPROCESSOR. INSTRUCTIONS MACY11 30(1046) 11-JUL-77 12:25 PAGE 3-1 PAGE: O1S6 
DMCHGH.MAC _21-APR-77 10:16 PROTOCOL DEPENDANT MACROS 

303 -SBTTL PROTOCOL DEPENDANT MACROS 

x : 

336 ! 

342 : 

348 

349 177777 MICPC=177777 —«; INIT MICRO PC 
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OMC-11 MICROPROCESSOR INSTRUCTIONS MACY11 30(1046) 11-JUL-77 12:25 PAGE S PAGE: 0157 
HILOW. MAC O3-DEC-76 10:16 DMC11 DOCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

3$2 -SBTTL DMC11 ODCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 

383 o0dc0o LOW=0 


oH! 
S 


Senco ke eae © 
z 


LC tata tats 
I~NI~INID 
£WN-Ow 


=~3- 


C13 


MP PROTOCOL IMPLEMENTATION MACY11 30(104%6) 11-JUL-77 12:25 PAGE & PAGE: 152 
C 21-APR-77 10:16 DMC11 DOCMP MICRO CODE ASSEMBLED FOR USE WITH THE M8201 LINE UNIT 


- TITLE DMC11 DOCMP PROTOCOL IMPLEMENTATION 
-SBTTL VERSION OOA FEBRUARY 26,1975 


L 
TIL HARVEY M. SCHLESINGER 
-SBTTL COPYRIGHT 1975, DIGITAL EQUIPMENT CORPORATION 


-SBTTL VERSION 008 MARCH 17,1975 
-SBTTL CSR AND MICROPROCESSOR CHANGES 


“SBTTL VERSION OOC NOVEMBER 6, 1975 
“SBTTL RETRANSMISSION CHANGES 


-SBTTL VERSION OOD DECEMBER 3,1975 
“SBTTL TRANSMIT DONE CHANGES 


-SBTTL THE LATEST MODIFICATIONS WERE ADDED ON: 
NOVEMBER 16, 1976 


Bre ig PROT Ook SOPLEMENTATION 
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NTEROAROCESGGR mab MERORY AbSiGRmeh Te PAGE: 


-SBTTL_ MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 
sia OF MICROPROCESSOR MAIN MEMORY 


R ;NAKS pS eb Ae 
NAKS;=NAKSR+1  ;NAKS TMTED--DYNAMIC 
T+1  ;REPS RECD--DYNAMIC 
T=REPSR+1 ;REPS ae. eee 
NP=REPST+3 Bo 4 We TO 
NTLR=NP+1 NAKS-MSG NO PUEFERS CUMUL . 
NHDR=NTLR+1 : NAKS-MSG HE 
= +] s NAKS-DATA aa 
NTLS=NDATR+1 sNAK SENT --NO BUFFERS 
ss all +1 sNAK SENT BAD « 
= 4. NAK SENT BAD DATA 
REPCS=NDAT ;REPS SENT CUMUL 
REPCR=REPCS?| : RECD CUMUL 
=REPCR+1 ;CORE TABLE BASE ADDRESS 
SRC=BASE+3 ;START OF INPUT CHAIN--NEXT RECY DONE 
ERC=SRC+1 sEND OF INPUT CHAIN 
RCLI=ERC+1 ; RECEIVE LINK #1 
RCL2=RCL1+5 : 82 
RCL3=RCL2+S = - $3 
RCLY=RCL3+5 
RCLS=RCL4+5 
6=RCLS+5 
RCL7=RCL6+5 
STC=RCL7+5 sSTART OF OUTPUT CHAIN---NEXT TMT DONE 
ETC=STC+1 : END OF eet sa IN 
TMLI=ETC+1 ; TRANSMIT LINK 
TML2=TML1+6 
TML3=TMLe+6 : * @ 
TML4Y=TML3+6 
TMLS=TML4+6 
TML&=TMLS+6 
TML7=TML6+6 
TML8=TML7+6 
T=TML8+6 ; TYPE FIELD 
ST=T+] ; SUBTYPE FIELD 
ISP17=ST+1 ;MSG ACKED IMAGE 
IMGIO=ISP17+1  ;IMAGE OF BIT 1 OF SPIO 
IMGLI=IMG1O+1 ##;IMAGE OF SP11 
IMG12=ING11+1  ;IMAGE OF SPl2e 
IMGI4=IMGl2e+1  ;IMAGE OF SP1Y4 
IMGI6=IMG14+1 ;IMAGE OF SPIE 
IMGI7=IMG16+1 ;IMAGE OF SP17 
TYPTAB=IMG17+1 ;TYPE TABLE--- 
:72 TYPE TABLE REP 
te aie son NAK 
TYPSTT=TYPTAB+2 374 ™ “ START 
+, ie ” STACK 
BC=TYPSTT+3 RECEIVE BYTE COUNT 
ISP11=BC+e2 : SP 11 IMAGE 
ISPle=ISP11+1 :SP12 IM MAGE 
INCONS=ISP12+1 :IN CONTROL CSR IMAGE 
RTHRS=INCONS+1 :RECY THRESHOLD LINK 
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DOCHGH.MAC © 21-APR-77 
433 
434 
435 900210 
436 00021 
437 o00e4 
433 000241 
435 gode42 
440 ooc4a 


L 
1 


E 
0:16 


MENTATION 
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MACY11 30(104%6) J1-JUL-77 12:25 PAGE 6-2 
MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


;ALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 


TABST=210 ; TABLE yee STATE 
PRIST=TABST+1 ;PORT STA 
NXTINT=240 : NEXT INTERRUPT Re 


NXTSP=NXTINT+1 ;ENO OF 
INTSTK=NXTSP+1 ;STACK OF INTERUPTS 
MMEND=400 ;MAIN MEMORY END 


PAGE: 
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ONCL1 DOCHP PROTOCOL IMPLEMENTATION — MACY11. 301046) L1-JUL-77 12:25 PAGE 6-3 PAGE: O16! 
DOCHGH.MAC © 21-APR-77 10:1 SCRATCH PAD ASSIGNMENTS 
442 .SBTTL SCRATCH PAD ASSIGNMENTS 
45 pocoo0 SP0=0  ;SPO---SCRATCH REGISTER 
444 900001 SPl=1  !SP1---PORT STATUS WORD 
445 :BIT ASSIGNMENTS 
446 :BITO--INIT MODE 
44? ;BITI--SEC STATION SELECT UNUSED) 
448 'BIT2--NO BUFFER ASSIGNED IN BOOT MODE 
449 !BIT3--DLE RECEIVED WHILE NOT IN MAINT MODE 
450 :BITY-- INTERRUPT PENDING 
451 :BIT6--DISCONNECT 
452 :B1T7--BOOT MODE 
453 ooooge SP2=2 :SP2---TRANSMIT STATE POINTER 
454 900003 SP3=3  ;SP3---RECEIVE STATE POINTER 
4éS o0c004 SPu=4 _; SPY---E RECy 
OS SPS=5  ; SP5---END RECEI SS 
457 06 SPo=6 :SP6---END TRANSMIT ADDRESS 
458 000007 SP7=7  ;SP7---END TRANSMIT 3 
459 000010 SP10=10 ;SP10---LINE STATUS WORD 
460 :BIT ASSIGNMENTS 
461 :BITO--UNNUMB PE 
462 :BITI--MESSAGE IN PROGRESS 
463 :BIT2--LINE HAS L 
465 :BIT3--START RECE 
4E5 :BITH--CLEAR ACTIVE ON END 
466 :BITS--START MODE 
467 :BITB--HALF DUPLEX 
468 :B1T7--OK TO SEND 
469 SPll=11 ;SP11---R FIELD 
479 o00012 SPle=le ;SPle---N FIELD 
471 og00 SP13=13 ;SP13---TYPE 
472 000014 SP14=14 :SP14---RECEIVE LINK IMAGE —- 
47. oc00is SP1S=15 :SP15---TIMER ENTRY---NUMBER OF ONE SECOND TICKS 
474 050016 SP16=16 :5P16---POINTER TO TMT LINK COPY IN MAIN MEM 
475 900037 SP17=217 !SP17---LAST MESSAGE ACKNOWLEDGED 


SEE PROT Bk TOPLEMENTATION 
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016322 
a1e3e 
016324 
016326 


O1E326 
016330 


016330 
016332 


016332 
916334 


016334 
016336 
016336 
016340 
016340 
016342 


O1634e2 
016344 


016344 
016346 


O1E346 
916350 


016350 
0163S¢ 


0163S¢ 
016354 


016354 
C1635E 


Ci62SE 


016322 
000000 
063220 
000001 
063223 
o000de 
063237 


000093 
06 1200 


oocoo4 
06 1202 
000005 
003370 
000006 
063130 
900007 
076423 
909010 
063060 
000011 
101413 
000012 
10040€ 
000013 
003401 
000914 
063231 
000015 
06323¢ 


000916 
Cidleée 


Bad n= PE — 


INIT: 


S$: 


G13 


wore a ROUTINE 

fo0es URLTING FOR FOR 8 PECEIVE DATA( BOOT?) 

;WILL ACCEPT ONLY BASE FORMAT. ALL OTHERS WILL RETURN A PROCEDURE ERFOR 
FAT INITIALIZATION --- THE HARDWARE CLEARS THE BR AND MAR 


=| 

SP BR, SELB, SPO sCLEAR SPO 

MICPC=MICPC+1 

(MOVE! SPX?8R! SELB! SPO? 

SELB, SP3 :PAGE ONE TRANSFER ADDRESS 

MICPC=MICPC+1 

(MOVE! SPX:BR? SEL 1SP3> 

SP BR SELB, SP17 :CLEAR SP17 

MICPC=MICPC+1 

<MOVE! SPX! BR! SELB! SP17> 

OUT BR. <SELA! OINCON> :ZERO THE IN CONTROL CSR 
nUcPcantcres] 

«MOVE! NASUTX!BR! <SELA! OINCON) > 

OUT BR <SELA 00CON> ZERO THE OUT CONTROL CSR 
MICPC=MIC 

Ta VE THROUTX! BR! <SELA! OOCON> > 

P Imm, 370, SP 10 -WRITE 5 ONE BITS TO THE HIGH ORDER 
MICPC=MICPC+1 

(MOVE ! SPX! IMM! 370!SP10> 

:BITS OF SPIO 
SP10 ‘SHIFT SPIO LEFT SETTING ‘“RRY THE 


SP BR, AA, 
MICPC=MICPC+1 
“MOVE ! SPX! BR! AA!SP10> 


FI 
MEMINC BR,ADDC!SP3 : WR 
NICPC=NICPC+1 
MOVE ! WRMEM! TNCHAR! BR! <ADDC! SP3>> : 
sLOCATIONS AND ZERO THE REST 
sp BR, INCA, SPO INCREMENT COUNTER 
MICPC=MICPC+1 
<MOVE! SPX BR! INCA! SPO> 
2 10$ ;ALL DONE 
MICPC=MICPC+ 


1 
<JUMP 2 ZCOND! « 10S-INIT83000#4> ! < 1OS= INI TS707 72>» 
YS 5$ ; KEEP 


ALWA GOING 
NICeCanTCe C+1 
< JUMP! ALCOND! <S$-INIT&3000#4> ! eg” ta Nie hag 


S TIMES THRU THE LOOP 
A ONE TO THE FIRST S MEMORY 


BR a © WRITE A 1 TO THE BR AND SP1 
MICPC=MICPC41 
(MOVE! SPBRX! IMM! 1!SP1> 

BR SELB, SP :WRITE A 1 TO SPI1 

MICPC=MIC 
a SVE? SPX! BR#SELB! SP! 1> 
SP BR SELB, SPle :WRITE A 1 TO SPl2 
MICPC=MIC 
‘ROVE! SPX 8A! SELB!SP12) 

LOMA IMM, TYPTAB :POINT MAR TO TYPE TABLE 
MICPC=MICPC41 


HOVE? OMAR! IMM! <TYPTABS377> > 


O1se2 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE &-5 PAGE : 


DDCHGH.MAC 21-APR-77 10:16 INIT--INITIALIZATION ROUTINE 
016360 sWRITE SYNC TO MEMORY 
? 000017 ASHBTE rd Bey - 
(1) 016360 000626 (MOVE! WRTEBR! IMM! < 226) 
S04 016362 ou ge rs SELB!SYNC | ;LOAD THE SYNC REGISTER 
(1) 016362 peoess cr tthe BR! SELB!SYNC>> 
50S 016364 ; REP 
(1) 00021 nIcPC=M eect 
id) 2 4 016403 «MOVE ! MH! INCHAR! IN! <3>> 
S MEM IMM : NAK 
(1) noo022 MICPC=MICPC41 
(1) 016366 o02402 (MOVE! WRMEM! IMM! <2>> 
S07 016370 SP MEMX HX? INCHAR, SELB, SP15 :SET STARTING COUNT 
(1) 0013023 MICPC=MICPC+1 
(1) 016370 057235 (MOVE ! SPX! MEMX! INCMAR! SELB! SP1S> 
S08 916372 wid Im 6 : START 
‘t} o1eaze Biesbe ngve? DAREN! ENcnaR? mt c6>> 
509 016374 MENTING IMM, 7 : STACK 
(1) oo002s MECPCENICPCH 
(1) O16 74 O18407 MOVE LHRMEM! INCMAR! IMM! <7> 
Sid 016376 MEMINC IMM 1 s ACK 
C1) ooco26 MICPC=MICPC41 
(1) 016376 016401 (MOVE! WRMEM! INCMAR! IMM! <1>> ts 
S11 916400 LOMA IMM. TABST :POINT TO TABLE UPDATE STATE 
(1) 000027 MICPC=MICPC41 
(1) 16400 010210 <MOVE! LDMAR! IMM! < TABST&377>> 
Si2 16402 PSTATI 13 s INITIALIZE IT 
(1) O1640e2 MEMINCG IMM, <<I3-INIT8777/2>> 
(2) 000030 MICPC=MICPC41 
(2) O16402 O164E0 <MOVE ! WRMEM 5? INCMAR! INM! << I3-INIT8777/2> > 
S13 016404 PSTATI NIDLE2 INITIALIZE PORT STATUS 
(1) O16404 MEMINC IMM C<NIDLE2-INIT8777/2>$ 
(2) 00003: MICPC=MICPCS1 
(2) Ol6404 016533 <MOVE ! WRNEM! INCMAR! IMM! < <NIDLE@-INIT8777/2> >» ‘ 
Si4¥ O16406 LDMA IMM STC sLOAD ADDRESS OF LAST TMT CHAIN 
C1) 990032 MICPC=MICPCH1 
(1) O1640& 010067 “HOVE LLORAR! Thm! <STCB377> 
SiS 016410 MEMINC IMM. TML1 :STORE ADDRESS OF FIRST TMT LINK 
(1) 900033 MICPC=MICPC41 
(1) O16410 916471 «MOVE! WRMEM! INCMAR! IMM! <TMLL> > 
Sig Ol64le MEM IMM. TML1 
(1) 000034 MICPC=MICPC41 
(1) O1e412 002471 (MOVE! WRMEM! IMM! <TML1>> 
517 016414 SP MEMX, SELB, SP16 s INITIALIZE LAST XMIT POINTER 
(1) 000035 MICPC=MICPC+] 
(1) Ol6414 043236 MOVE! SPX!NENX? SELB! SP 16) Phe 
Sig Ols4le IMM, SRC sLOAD ADDRESS OF LAST RECY CHAIN 
(1) 000036 NICPCENICP pcti 
(1) Ol6416 010022 <MOVE !LOMAR! IMM! <SRC8&377> > > 
519 016420 MENINC IMM. RCLI ;SET UP ADDRESS OF FIRST RECY LINK 
1) 000037 CPC=MICPCH1 
(1) Ole420 O16424 (MOVE! WRMEM! INCMAR! IMM! <RCLL>> 
520 dle4ee MEM IMM, RCL 
C1) 900040 MICPC=MICPC pct) 
‘T) oley¥ze 902424 MOVE! MEN? IMM! <RCLL>» 
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DDOCMP PROTOCOL ee 
. MAC 10:16 


21-APR-77 


016424 


016424 
016426 


016426 
016430 


016430 
016432 


016432 
016434 


016434 
016436 


016436 
016440 
016440 
O1644e 
016442 


000041 
043234 


000042 
010240 
mete 

16642 


oo0o44 
002642 


ocoo4s 
000600 
OOCO46 
061221 
000047 
110740 


000050 
063223 


MACY11 
INI T=-5 


REXIT: 


30( 1046) 
NITIALIZATION ROUTINE 
z rom SELB, SP14 


MOVE! SPX! RENX!SELB!SPI4) 
MA IMM, NXTINT ;ADDRESS OF NEXT INTERRUPT POINTER TO MAR 


1 
MM! <NXTINT8&377>> 
NTSTK ; INITIALIZE NEXT INTERRUPT POINTER 


M 
MICPC=MICPC+ 
COVE! WRNEN? 
taba ; INITIALIZE INSERTION POINTER 
MM! <INTSTK>> 


| 

I 

Iwona mt cINTSTC 
«MO 'T 

BRWRTE IMM. 200 :WRITE THE RUN BIT TO THE BR 


BR «SELB! OMAIN> ;WRITE THE RUN BIT TO MAINT CSR 


MICPC=MIC 
MGVE! WROUTX! BR! SELB! OMAIN> > 


ALWAYS TEOMe 
MICPC=MICPC+1 
<« JUMP! ALCOND! < TEOM2-INITS3000#4> ! < TEOM2-INIT8777/2>> 


bp BR, SELB, SP3 
MICPC=MICPC+1 
CHOVE! SEY BR! SELB! SP2> 


;FALL INTO IDLE LOOP 


11-JUL-77 12:25 PAGE 6-6 PAGE: 
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ODCHGH. MAC 
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016474 
016476 


016476 
016500 


016500 
016502 


016S0e 
016504 
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Bebe 14 
0000Se 
112400 
000053 
112000 


oocos4 
020640 


ooooss 
167203 
OO00SE 
010210 
0000S7 
140620 
000060 
000404 


000061 
060342 


000062 
111000 


000063 
123626 


000064 
113255 


OOO0ES 
023240 


000066 
060520 
000067 
103454 
000070 
010211 
000871 


MACY11 30(1046) L1-JUL-77 12:25 PAGE 6-7 PAGE : 


IDLE--PROGRAM IDLE LOOP 
PR ‘ n SOLE (Soe IDLE LOOP 
ROPRIATE SERVICE ROUTINES 
- STATE POINTERS FOR TMT,RCV,CSR ACTIVITY 


IDLE: ee ;READ TRANSMIT STATUS WORD FROM SPIO TO 8R 


nice = 
ee MUteGlen sansri0 
aT ePCs ;IF DATA TO SEND-- BRANCH 


NGIGSe omoe-nrraacow tee tnnyz77/ 
BRO MTDA ;IF DATA TO SEND-- BRANCH 


RICPC=MICPCe| 
CJUMP! BROCON! <THTDA-INIT83000%4> # < TMTDA-INIT&77772> > 
Il: Doesnt ;READ LINE UNIT RECEIVE CONTROL WORD 


(MOVE! WRTEBR! IBUS! <RCVCON> > 
BRY _ BR, SELA, SP3! PAGE] :BRANCH BASED UPON RECV STATE 
MICPC=MICPC+1 


<JUMP! BRYCON! BR! SELA!SP3!PAGE1> 
12: LOMA IMM. TABST :POINT TO TABLE UPDATE STATE 
MICPC=MICPC41 
<MOVE!LDMAR! IMM! < TABST&377>> 
-ALWAY MEMX, SELB, 0 
MICPC=MICPC+1 
< JUMP! ALCOND! MEMX! SELB! 0> 


STATE TMTAt2 GET IDLE TRANSMIT STATE + 1 
MICPC=MICPC+1 

CMOVE? WRTESR? IMM! CTMTA#2- -INIT8777/2>> 

NOP ; SUBTRACT FROM CURRENT STATE 

MICPC=MICPC +i” 


< é 
on _— “Fate ;NON-IDLE STATE 
MICPC=MICPC+1 


CTUMP! CCOND! < THTDA- INI T&3000#4> ! < TMTDA-INIT8777/2>> 
IDLEO: SPBR  IBUS, UBBR,SPO : TIMER EXPIRES? 
NICPC=NICEC+ +} 
MOVE! t SPGRX? [BUS UBBR! SPO> 


BRY 

MICPC=MICPC+1 

CJUMP! BRSCON! <TINSRV-INIT83000%4 <TIMSRV-INIT8777/2> > 

nicPc niiees RCVCON, SPO ;READ THE RECEIVE CONTROL REGISTER 


MOVE! SP: YBUS!RCVCON!SPO> 
BR, AA! SPO 


3 WRTE sSHIFT IT LEFT 
NICPC=HICECS pt+1 


MOVE? HRTEBR!BR! (AA!SPO>> 
el ae | ae ;RECEIVE ACTIVE, DON’T DO PORT STATUS 
<JUMP!BR7CON! <I 1-INIT&3000#4> ! <11-INIT8777/2)> 
LOMA —s«IMM, PRTST ;ADDRESS PORT STATE 
MICPC=MICPC41 
«MOVE! Lona In <PRTsT837 7») 
ALWAY MEMX SELB,O ; INDEX 


MICPC=MICPC+] 


016s 


¢ 
"d 


DMC11 ODCMP PROTOCOL IMPLEMENTATION MACY1: 30(1046) 11-JUL-77 12:25 PAGE 6-8 PAGE: O166 
DOCHGH. MAC 21-APR-77 10:16 IDLE--PROGRAM IDLE LOOP 


(1) 016504 140620 « JUMP! ALCOND! MEMX! SELB! 0> 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 3001046) l1-JUL-77 12:25 PAGE 6-9 PAGE: 0167 


DOCHGH.MAC  21-APR-77 10:16 BASSRV---- BASE SERVICE ROUTINE 
56S .SBTTL BASSRV---- BASE SERVICE ROUTINE 
S66 016506 BASSRV: PSTATE NIDLE2 
(1) 016506 MEM IMM, <<NIDLE2-INIT877772> > 
(2) 000072 MICPC=MICPC41 
(2) 016506 002533 SHOVE? WRMEM! TMM# < <NIDLE2- INIT&777/2> >> 
S67 016510 LOMA —«IMM, BASE ;CLEAR TO MAR SO IT POINTS TO BASE POINT 
(1) O16S19 O10017 CV: ELLOBAR TH! cBASEB377> 
S68 pipers MEMINC 1BUS PORT I ;READ CSRY 
(1) 000074 MICPC=MICPC+l 
(1) 016512 136500 <MOVE!HRMEN! INCNAR! IBUS! <PORT1> > 
S69 016514 me INC 1BUS POR ;READ CSRS 
(1) 000075 MICPC=MI 
(1) 016514 136520 ROVEAKER! INNA TaUS! PORTE» 
S70 016516 MEM PORTY 
(1) 000076 MICPC=NICPC+ +1 
(1) Q16516 122560 MOVE ! WRMEM! IBUS! <PORT4> > 
S71 016520 be IBUS, INCON, SPO ;READ INPUT CONTROL CSR 
(1) 000077 MICPC=MICPC+i 
(1) 016520 123000 <MOVE ! SPX! IBUS! INCON! SPO> 
S72 016522 BRWRTE IMM, 100 :CLEAR THE BR 
(1) 000100 MICPC=MICPC41 
(1) Ol6522 900500 (MOVE! WRTEBR! IMM! <100>> 
S73 016524 OUT BR. <AANDB! OINCON> :CLEAR THE INCONTROL CSR 
(1) 000101 MICPC=MICPC+1 
(1) 016524 061260 SAS E  HROUTX! BR! <AANDB! OINCON> > 
S74 016526 OUTPUT IMM. <120!OMODEM> ;MASK FOR HDX AND DTR 
(1) 000102 MICPC=MICPC+ 
(1) 016526 002133 <MOVE ! WROUT ! IMM! < 120! OMODEM> > 
S75 016530 BRWRTE MEMX, SEL :READ SEL 
(1) 000103 MICPC=MICP cpc+l 
(1) 016530 040620 <HOVE! WATEBR! NEMX? «SELB? 
Sr 016532 ihe :IF SET RESUME 
(1) 016532 103113 ie WS #cRESUNE- INITS3000#4> ! «RESUME -INIT8777/2) > 
S77 016534 ;LOAD ADDRESS OF TYPE FIELD 
 oussoy SEE MeatBe hme tsa 
578 016536 MEMINC IMM ;WRITE START TYPE TO MEMORY 
(1) 000106 MICPC=MICPC41 
(1) 016536 O16406 (MOVE ! WRMEM! INCMAR! IMM! <6>> 
S79 016540 MEM IMM. 300 ;WRITE SELECT AND FINAL TO MEMORY 
(1) 000107 MICPC=MICPC$ 
(1) O16S40 <MOVE ! WRMEM! TMM! <300> > 
S80 o16542 SP BR, DECA, SP1 ; TURN OFF INIT MODE 
(1) 000119 MICPC=MICPC+ 
(1) O16S42 0631 (MOVE ! SPX! BR! DECA!SP1> 
S81 016544 BS1:  BRWRTE IMM,241 ;SET OK TO SEND,STARTMODE AND UNNUM PENDING 
(1) 000111 NICPC=MICPC pcs] 
(1) O16544 OO00641 MOVE ! URTEBR! IMM! <241> 
seo 016546 ALWAY s 
000112 MICPC=MICPC+1 
016546 110737 TTGMETAL COND! <SAQ-INIT&3000#4> !<SA3- INIT877772>> 
RESUME: SP IMM, SP4,4 :SET UP SP4 FOR COUNTING NPRS 


000112 MICPC=MICPC41 
016550 003004 (MOVE! SPX! IMM!SP4!4> 


it Uh Lanta! 
Me 
Ve) wv 
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OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-10 PAGE: O168 


DOCHGH.MAC  21-APR-77 10:16 BASSRV---- BASE SERVICE ROUTINE 

o16sS2 SP NCA, SP10 :SET UNNUMB MESSAGE PENDING TO 

rad) 000114 aicpcemreces 

(1) O165S52 063070 «MOVE! SPX! BR! INCA! SP10> omaneet 
016S5S4 LOMA IMM, BASE i ARBRE Sd Baee TEER. SPF RESS 

) 016554 aiates CHOVE!LOMAR? TMM! <BASEB377> 

S87 016556 STOyE® FUDGE ;SET TMTR STATE TO ENTER TABLE UPDATE 

(1) 000116 MICPC=MICPC+1 

(1) 016556 000743 (MOVE! WRTEBR! IMM! <FUDGE-INIT8777/2) > 

588 016560 ALWAYS TBO GO SET UP MXT BITS AND ADRESS OF BASE FOR NPRS 

(1) 000117 MICPC=MICPC+1 

(1) O16560 110455 < JUMP! ALCOND! < TBO-INIT&3000#4> ! < TBO-INIT&777/2> > 

S89 016562 BSe2: CDMA IMM. IMGIO 

(1) 000120 MICPC=MICPC pcs] 

(1) 016562 010154 MOVE ! Moers tM? <ING1O8377>> 

S90 016564 SP MEMX! INCMAR, RORB, SP10 ;RESTORE BIT 1 OF SPIO 

(1) 000121 MICPC=MICPC+1 

(1) O16564 057310 <MOVE ! SPX! MEMX? INCMAR! AORB! SP10> 

S91 016566 SP MEMX LINCHR, SEB, SP11 RESTORE SP11 

(1) 000122 MICPC=MICPC+1 

(1) 016566 057231 «MOVE! SPX! MEMX! INCMAR! SELB!SP11> F 

S92 016570 SP MEMX HX? INCHAR, SELB, SPle :RESTORE SPl2 

(i) 000123 MICPC=MICPC+1 

(1) 016570 057232 <MOVE! SPX! MEMX! INCMAR! SELB! SP 12> 

S93 016572 SP MEMX LINCHAR, SELB, SP14 ;RESTORE SP14 

(1) 000124 MICPC=MICPC+1 

(1) 016572 057234 «MOVE ! SPX! MEMX! INCMAR! SELB! SP14> 

S94 016574 SP MEM XEINCHAR, SELB, SP16 ;RESTORE SP16 

(1) 900125 NICPC=NICEC#1 

(1) 016574 057236 MOVE! SPX! MEMX! INCMAR! SELB! SP16> 

S95 016576 Sp MEMX, SELB, SP17 ; RESTORE SP17 

(1) 000126 MICPC=MICPC+1 

(1) 016576 043237 (MOVE ! SPX! MEMX! SELB! SP17> 

S96 016600 SP BR, DECA, SP10 : TURN OFF UNNUM MESSAGE PENDING AND 

(1) 000127 MICPC=MICPC+1 

(1) 016600 063170 <MOVE ! SPX! BR! DECA! SP10> 

597 ;ZERO THE BRG 

598 016602 :CLEAR INIT MODE 

(1) 000130 nore - 

(1) O16602 063161 Ay pecnt SPL 

599 016604 :SET OK TO SEND 

(1) 000131 oTCrce PomIC 

(1) O16604 000600 <MOVE nr 

600 O16606 ALWAYS SA 

(1) 000132 MICPC=M 1eP C+1 

(1) O16606 110737 < JUMP! ALCOND! <SA3-INIT&3000#4> ! <SA3-INIT8777/2>> 
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DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) JL1-JUL-77 12:25 PAGE 6-11 PAGE: 0169 
DOCHGH.MAC  21-APR-77 10:16 NIDLE2---NO CSR ACTIVITY STATE 

602 .SBTTL NIDLE2 NO CSR ACTIVITY STATE 

603 O16610 NIDLE2: BRURTE BR, SELA!SP1 ;READ PORT STATUS WORD 

{t} oieeio BeBREY MAYER CUSESthonscseuarsp1> 

60S 016612 BRY NIDLES ; INTERRUPT PENDING?---BRANCH 

(1) 000134 MICPC=M =mrcpct 1 

(1) 016612 103141 JUMP IBRICOM! <NIDLESSINITESOOORN) 8 TO -INIT8777/2>> 

610 016614 SPBR IBUS, INCON, SPO READ INPUT CONTROL CSR 

(1) 000135 MICPC=MICPC+] 

(1) O16614 123400 <nOVE 'SPBRX! IBUS! INCON! SPO> 

611 O16616 BRSHF T ;SHIFT IT RIGHT 

(1) 000136 MICPC=MICPC+1 

(1) 016616 001620 MOVE! SHF TBR! WRTEBR! SELB> 

ble 016620 BRY INMAT ;IF RQI SET -- BRANCH 

(1) 000137 MICPC=MICPC+1 

(1) 016620 103146 < JUMP! BRYCON! < INWAT1-INIT&3000%4> ! < INWAT1-INIT87777/2> > 

613 ;TO RE-READ THE IN CNTRL REGISTER TO AVOID 

614 :A RACE IN MICRO-P READ/UNIBUS WRITE 

616 Ol6622 ALWAYS IDLE 

(1) 000140 MICPC=MICPC+1 

(1) 016622 100451 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT&77772>> 

618 016624 NIDLE6: 

639 016624 NIDLES: PSTATE OUTINT -SET STATE FOR INTERRUPT PROCESSING 

(1) 016624 MEM IMM. <<OUTINT-INIT8777/2) $ 

(2) 000141 MICPC=MICPC+1 

(2) 016624 002614 COVE 2WRMEN? TM! < CQUTINT- -INIT&777/2> >> 

640 016626 AYS IDLE 

(1) 000142 MECPCoMICP C+1 

(1) O16626 100451 < JUMP" ALCOND! < IDLE-INIT&3000%4> ! < IDLE-INIT&777/2>> 
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MACY11 30(104%6) 11-JUL-77 12:25 PAGE 6-12 0170 
INWAIT---WAIT FOR RQI TO CLEAR 
TTL iNWA incon FOR RQI TO CLEAR 
INWAIT: neem ON, SPO :READ INPUT CONTROL CSR 
' i INCON! SPO> 

STE RTE: en ‘Aa epo ;SHIFT IT LEFT 

MICPC=MICPC+1 

CHOVE!NRTEBR?BR! <RA!SPO> 

BR? NIDLE3 s INTERRUPT ENABLE HAS BEEN SET 

MICPC=MICPC+1 

«JUMP! BR7CON! <NIDLE3-INIT83000#4> ! <NIDLE3-INIT8777/2) > 
INWAT1: SPBR _IBUS, INCON,SPO ;READ THE INPUT CONTROL CSR 

MICPC=mICPC+l 

(MOVE! SPBRX! IBUS! INCON! SPO> 

BR7 NWAT2 ;READY IN STILL SET 

MICPC=MICPC+1 

< JUMP! BR7CON! < INWAT2-INIT83000#4 ! < INWAT2-INIT877772>> 
NIDLE3: PSTATE INWATI -UPDATE STATE TO INPUT 

MEM IMM, << INWAT1-INIT8777/2>5 

MICPC=MICPC41 

«MOVE! WRMEM! IMM! << INWATL-INIT8&77772>>> 

BRWRTE BR.AA'SPO :SHIFT CSR LEFT 

MICPC=MICPC+1 

(MOVE ! WRTEBR! BR! (AR! SPO> > 

BR? ININT 

MICPC=MICPC+1 

< JUMP! BR7CON! < ININT-INIT83000#4> ! < ININT-INIT8777 72> > 

PSTATE INWAIT “UPDATE STATE POINTER TO NO INTERRUPT GENERATED 

MEM IMM. << INWAIT-INIT877772> 3 

MICPC=MICPC41 

(MOVE! WRMEM! IMM! << INWAIT-INIT8777/2>>> 
NIDLEY: BRWRTE IMM 

MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <200>> 

OUT BR. AORB! OINCON :SET THE RDYI 

NICPC=NICPC+| 

MOVE ! TASUTX!BR! (AORB! OINCON) > 

ALMA YS IDLE 

MICPC=MICPC+1 : 

< JUMP! ALCOND! < IDLE-INIT83000#4> ! < IDLE-INIT8777 72> > 
tNWAT2: BRSHFT :SHIFT THE BR RIGHT 

MICPC=MICPC+1 

<MOVE ! SHF TBR! WRTEBR! SELB> 

BR4Y IDLE 

MICPC=MICPC+1 

< JUMP! BRICON! < IDLE- ~INIT83000#4 # IDLE -INIT$777/2>> 

PSTATE INSRV :SET NEXT STATE TO INPUT SERVICE 

MEM IMM, << INSRV-INIT8777/2>>° 

MICPC=MICPC?1 

(MOVE ! WRMEM! IMM! << INSRV-INIT8777/2> >> 

ALWAYS IDLE 

MICPC=MICPC+1 

< JUMP tALCOND! « IDLE- -INIT83000#4> # < IDLE- INIT8777.'2> > oe 
INSRY: SPBR  IBUS. INCON,SPO :READ THE INPUT CONTROL CSR 


MICPC=MICPC4] 
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016670 
016672 


16672 
16674 


016706 
016710 
016710 


01671le 
016712 


01671e 
016714 


016714 
016716 


016716 
016720 


123400 
000164 
102600 
000165 
102172 


000166 
001620 


000167 
102574 
000170 
002700 
000171 
100$75 
000172 
002657 
000173 
100575 
000174 
002721 
000175 
060601 
000176 
192201 
000177 
100451 
000206 
102211 
000201 
002533 
000202 
000500 
000203 
061260 


oocec4 
010177 


aT ton hal to lg Jay or 


«MOVE! SPBRX! IBUS! INCON! SPO> 
;--SENSE OR BASE 
MICECSAICE Ce! 


a ae 


MICPC=NICPC+1 
< SBROCON! ¢108-INIT83000e% Sst be BA 


MICPC=MICPC+1 

<ROVE! SH TBR! 'WRTEBR! SELB> 

ICPC=MICPC+1 

JUMP! BRICON! atime MON Me 


 haementtnanelinabeahdec 5 
* IMM! << TBASRV-INIT3877772>>> 
1 


Barc ~SHIFT FOR IN OR OUT 


YS 
MICPC=MICPC+ 
< JUMP! ALCOND! <20$-INIT8&3000#4> ! <20$-INIT3777/2>> 
PSTATE CTLSRV 
MEM IMM, <<CTLSRV-INIT8&77772>> 
MICPC=MICPC41 
<MOVE! EIMRPER! Int <CTLSRV-INIT8777/2> > 


ALWAYS 
MICPC=MICPC+1 
7 1  * mlaeanerntcigen ti ty 


PSTAT 
MEM MM. <<RBASRV-INIT38777/2>> 
MCPCEMICPCS 
(MOVE! WRMEM! IMM! <<RBASRV-INIT8777/2) >> 
BRURTE BBS SELA!SP1 INIT MODE 
CHOVE!URTESR!GR! (SELA!SPL>» 
BRO :IF INIT MODE--ERROR 
MICPC=MICPC+1 

TOME? BROCON! <PROCER-INIT83000#4) ! <PROCER-INIT$777/2>> 
ALWAYS IDLE 
MICPC=MICPC+1 

< JUMP! ALCOND! «TOLE- INIT$3000%4> ! < IDLE-INIT877772>> 
BRO INSRV1 : IF BASE---PROCESS 
NICPC=MICPC+1 

UMP! BROCON! < INSRV1-INIT83000#4> ! < INSRVL-INIT8777/2>> 
: PSIATE NIDLE2 -RESET PORT STATUS 


IMM, <<NIDLE2-INIT877772> 5 
nicPC=nce Pcs 


VE! See re tet < (MIDLER saealaabhl 2 
BRWRTE IMM 100 CLEAR INPUT CONTROL CSR 
MICPC=MICP Pc$] 


MOVE! WRTEBR! IMM! <100>> 
OUT BR, AANDB! OINCON $3 
MICPC=MICPC+1 

CHOVE! WROUTX! BR! <AANDB! OINCON? 
LOMA «IMM, <<RTHRS+3> > sAODRESS ERROR LINK 
MICPC=MICPCS1 
“MOVE! LDMAR! IMM! <<RTHRS+3> $377>> 
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DNC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-14 PAGE: O172 
DDCHGH.MAC 21-APR-77 10:16 INWAIT---WAIT FOR RQI TO CLEAR 
68S 016734 MEMINC IMM.2 
(1) 000205 MICPC=MICPCH1 
(1) 016734 016402 (MOVE! WRMEM! INCMAR! IMM! <2) > 
686 016736 MEM IMM. O 
(1) 000206 NICPC=NICECH 
(1) 016736 O02e400 «MOVE! WRMEM! IMM! <Q>> 
687 016740 d OUTPUT MEMX, SELB! OMODEM ‘sCLEAR DATA TERMINAL READY 
{t} oig7¥o Bassas THOVE? WAGUT! MENX! < SELB! OMODEM) > 
688 O16742 ALWAYS RCEXX :POST THE ERROR - FATAL 
(1) 000210 MICPC=MICPC+1 
(1) O1e742 114524 CJUMBEAL COND! RCEXX-INITS0O004 <RCEXX-INI1877772> > 
689 016744 INSRV1: BRURTE BR, SELA'SP1 s INIT MODE? 
(1) 000211 MICPC=MICPC+1 
(1) O16744 960601 CHOVE! WRTEBRIBR! (SELA!SPL>> 
690 916746 BRO BASSRV 
(1) 900212 MICPC=MICPC+1 
(1) Ol&74% 102972 «JUMP! BROCON! < BASSRV- INIT83000#4> ! <BASSRV-INIT8777/2) > 
631 016750 ALWAYS PROCER :NO - PROCEDURE ERROR 
(13 090213 MICPC=MICPC+1 
(1) 016750 10060) < JUMP! ALCOND! <PROCER-INIT&3000#4> ! <PROCER-INIT3777 2 
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017006 
017010 


000221 
0502e0 


o00eee 

74520 
000223 
055224 
ood2e4 
oSS2eS 
000225 
0SS2e7 
000226 
0SSee6 


009227 
103757 


000230 
100451 
000231 
002652 


000232 
019240 
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LEMENTATION macy 11 30(1046) 11-JUL-77 12:25 PAGE 6-15 PAGE: 0172 
10:16 OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 
.SBTTL OUTINT---SET UP OUTPUT INTERRUPT [ROYO! 
OUTINT: 
PSTATE PINT2 
MEM IMM, <<PINT2-INIT8777/2)> 
MICPC=NICPCH1 
MOVE ! tWRMEM? IM? « <PINT2-INIT8777/2)>» 
LOMA —_ IMM, NXTINT F SADDRESS OF NEXT INTERRUPT POINTER 
RICPCANICECS 
MOVE ! Moe? IMM? <NXTINTS377>> 
MEMX, SELB :NEXT INTERRUPT 
Lope CeNICe +] 
(MOVE! LOMAR! MEMX! <SELB> > 
SP OCON, -READ THE OUTPUT CONTROL CSR 
MICPC=MICPC+1 
(MOVE! SPX! IBUS! OCON! SPO> 
OUT CHEK? INCHAR) <AORB! OOCON> ;WRITE THE OUT CONTROL CSR 
MICPC=MICPC+1 
(MOVE !WROUTX! MEMX! INCMAR! <AORB! OOCON > 
LOMA MEMX SELB s ADDRESS LINK 
MICPC=MICPC+1 
<MOVE !LOMAR! MEMX! <SELB>> piyla 
BRWRTE <BR! INCHAR) <AA!SPO> sKICK PAST LINK STATUS BYTE 
MICPC=MICPC+1 
(MOVE !WRTEBR! BR! INCMAR! <AR!SPO>> 
SHIFT CSRO IMAGE MEET 
44% 
<(MEMX! INCMAR> , cSeLetoporti> WRITE LOW aE OF BA 70 CSR 
Sy opcemrcpest 
CMOVE !HROUTX?MEMX® INCNAR! «SELB QPORT1> 
OUT MX! INCMAR> . «SELB! OPORT2> :WRITE HIGH BYTE OF 8A TO CSR 
SU CPCEMICPE+s 
(MOVE ! WROUTX! MEMX! INCMAR! «SELB! OPORT2> > 
oT Te INCH , (SELB! OPORT4> sWRITE HIGH BYTE OF COUNT TO CSR 
CHOVE! WROUTX# MENX® INCMAR! «SELB! OPORT : ane 
OUT ween MX! INCMAR> , «SELB! OPORT3> sWRITE THE LOW BYTE 3F COUNT 
<MOVE! HMROUT ! MEMK! INCHAR! «SELBY OPORT> Sle 
BR7 PEL : INTERRUPT ENABLE IS SET 
MICPC=MICPC+1 
<JUMP* BR7CON! <PE1-INIT83000#4> ! <PE1-INIT8777/2>> 
GENERATE AN INTERRUPT 
ALWAYS IDLE 
MICPC=MICPC+1 
< JUMP ALCOND! < IDLE-INIT83000%4 ! < IDLE-INIT8777/2> > 
PINT2: PSTATE OUTWAIT 
IMM, <<OUTWAIT-INIT8777/2> > 
MICPCEMICP PC41 
CHOVEURBER? Int <UTAATT- -INIT8777/2> >> 
LOMA IMM. NXTINT “ADDRESS NEXT INTERRUPT QUEUE 
MICPC=MICPCH1 
“ROVE LOMB Tot <WQ7ENT8277>» 7 
SP MEMX :COPY ADDRESS FOR NEXT INT TO SPC 
MICPC=MICPC+] 
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PROTOCOL IMPLEMENTATION 
21-APR-77 10:16 


043220 
000234 
002642 
000235 
000776 


000236 
060360 


000237 
101642 


900240 
000402 


000241 
062400 


oodge4e 
043220 
090243 
010241 
000244 
040360 
00024S 
101647 


oode46 
1004S: 


000247 
000757 


ocde2es0 
063261 


0002Si 
100453 


: S 
MICPC=MICPC+1 


FY 


MACY11 30(i046) J1-JUL-77 12:25 PAGE 6-16 PAGE : 
OUTINT---SET UP OUTPUT INTERRUPT [RDYO] 


ONE rE ee 
IMM, INTSTK 


MEM 
MICPC=MICPC41 
<MO TMRHEN! Tm cINTSTAO 


BRWRTE 
NICPC=MIC cpch1 
MOVE! WRTEBR! IMM! < <MMEND-2> >> 


;ASSUME WRAP AROUND CASE 


;ADDRESS OF LAST INT IN STACK 


CHP :SHOULD WE WRAP 
NICPC=MICPCSL 
<SUBTC! BR! SPO> 
2 5 : YES--BRANCH 
NICeC=MICP C+1 
<JUNF! ZCOND! (S$-INITB300084> ! «S$-1NIT8777/2) 
BRWRTE IMM 2 OFFSET FOR NEXT POINTER 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! <2) > 
MEM BR, ADD! SPO -UPDATE POINTER 
MICPC=MICPC+1 
MOVE !WRMEM? BR! <ADD! SPO> > 
SP MEMX ‘ -COPY POINTER TO SPO 
MICPC=MIC +} 
MOVE ! SPX! MEMX! SELB! SPO> 


Lona IMM, NX ;PICK UP START OF IN QUEUE 
NICPCENICPCH] 
< ee oa 


CMP : COMPARE TO END 
MICPC=NTCPCe! 


<«SUBTC! MEMX! SPO> 
Z 10$ ; IF EQUAL--CLEAR INT PENDING 
MICPC=MICPC+1 
< JUMP! ZCOND! « LOS-INIT&S3000#4> ! < 10$-INIT3777/2>> 
ALWAYS ae 
ye ges 
«JU NB ALCONO! « IDLE- eames e INIT8777/e> > 4 
BRURTE IMM, 357 MASK TC CLEAR INT PENDING 


MICPC=MICPC41 
(MOVE! WRTEBR® IMM! 357> 


<MOVE! SPX! BR! AANDB! SPI > 
ALWAYS IDLE 
MICPC=MICPC+1 : i 

<JUMP!ALCOND! < IDLE-INITS3000#4) !< IOLE-INIT$777.2>) 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-17 PAGE: 
DOCHGH.MAC = 21-APR-77 10:16 OUTWAI--WAIT FOR RDYO TO GO AWAY 

741 .SBTTL OUTWAI--WAIT FOR RDYO TO GO AWAY 

742 O17D46 OUTWAI: SPBR _IBUS, OCON, SPO :READ OUTPUT CONTROL CSR 

(1) 900252 MICPC=MICPC+ +1 

(1) 91704 123440 <MOVE ! SPBRX! IBUS! OCON! SPO> 

747 017050 BR? IDLE 

(1) 000253 MICPC=MICP C+1 

(1) 017050 103461 < JUMP! BR7CON! < IDLE-INIT83000#4> ! < IDLE-INIT8777/2> > 

749 (Ol BRWRTE 100 “CLEAR CONTROL BITS 

(1) oo02s4 MICPC=MICPCH1 

(1) 17052 000500 CHOVE!WATEBR? M1 100) 

750 6017054 OUT AANDB 

(1) oo02ss MICPC=MICPC+1 

(1) O170S4 061262 <MOVE LMROUTX!BR! < OOCON! AANDB) » 

751 017056 AYS INS13 

sion oo0256 AT CPCoM 1CPC41 

(I) 017056 190671 < JUMP! ALCOND! < INS13-INIT$3000#4> ! « INSL3-INIT8777/2>> 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-18 PAGE : 


DOCHGH.MAC = 21-APR-77 10:16 CTLSRV--CNTL I SERVICE 
3 TTL --CNTL_I SERVICE 
754 017060 CTLSRV: mi gue PO ag "kpd ;T0 SPO 
(1) 000257 
(1) 017060 123560 CHOVE ST leanne 
755 017062 t 
(1) 000260 MI PC=MICPC+1 
(1) 017062 001620 COVE! SH TOR! MRTEBR? SELB> 
756 017064 ; | a. HOSEL :IF SET IS HALF DUPLEX 
a 
(1) 017064 PRose4 nips BRICON! HOSEL ~1N1T8000%4)  HOSEL- INIT877772)> 
757 017066 OUTPUT IMM, <100!OMODEM> :MASK OTR, TURN OFF HDX 
1) p00262 nICPC=n PC=HICP CS 1 
(1) 017066 002113 MM! < 100! OMODEM> > : 
758 017070 INSL1: SRORTE OP <SELA!SPO) ;RESTORE THE CNTL WORD 
(1) 900263 MICPC= 
(1) 017070 060600 «MOVE! FEBRIDP! <SELA!SPO> > 
759 017072 BRO ! ;IF SET IS BOOT 
(1) 000264 MICPC=MICPC+1 
(1) 917072 102273 < JUMP! BROCON! « CBOOT-INITS3000#4> ! <CBQOT-INIT8777/2)> 
760 017074 INSI2: SP TBUS, INCON, SPO :READ THE INPUT CONTROL CSR 
(1) 000265 MILOC=MICPC+ 
(1) 017074 123000 «MOVE! SPX! IBUS! INCON! SPO> 
761 017076 BRWATE IMM, 100 ;ZERO THE BR REGISTER EXCEPT INT ENABLE 
(1) 900266 MICPC=MICPC41 
(1) 917076 900500 “MOVE! WRTEBR! IMM! < 100>> * 
762 017100 OUT BR, <AANDB! OINCON> ;CLEAR IN CONTROL CSR 
(1) 000267 MICPC=MICPC+1 
(1) 017100 061260 <MOVE ! WROUTX! BR! <AANDB! OINCON? > eS 
763 017102 LDMA_IMM, PRTST ;ACDRESS PORT STATE 
(1) 000270 HIcPC=MICP cPch1 
(1) O17102 010211 AGVEILDMAR? INN! <PRTST8377> 
764 017104 INS13: PoTATE NIDLE2 
(1) O17104 MEM IMM, <<NIDLE2-INIT8777//2> > 
(2) 000271 MICPC=MICPC41 
(2) 17104 9002533 (MOVE ! WRMEM! IMM! < <NIDLE2-INIT8777/2>>> 
765 017106 ALWAYS 1OLE 
1} 909272 MICPC=MICPC+1 as 
9) 917196 100451 < JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777- 
4 
4 017110 sed CBOOT: ee, IMM, 200 :MASK FOR BOOT MODE 
(1) 7 
(13 917110 Bane08 MOVE! DAFEBRE e200 
768 O1711e2 B,SP1 ;IN PORT STATUS WORD 
) giziie 963301 Ricreennertsh 1 AORB! SP! 
) < 4 ) 
5h Bi5718 BRUnTE THA 204 :MASK FOR OK TO SEND AND LINE IDLE 
(1) 000275 MICPC=MICPC41 
(1) 017114 O00604 <MOVE! WRTEBR! IMM! < 204 > 
770 917116 ce BR SELB, SP10 SIN LINE STATUS 
(1) 000276 MICPC=MICPI ar 
(1) O17116 063230 <MOVE ! SPX! BR! SELB! SP10> 
771 017120 ALWAYS _INS1 e 
i}? .. 900277 MICPC=MICPC +1 het ER 
(1) O17120 100665 “JUMP! ALCOND! « INS12-INITS3000#4> !<INSI2-INITS777-2>> 


© 
oe 


OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-19 PAGE: 


DDCHGH.MAC 21-APR-77 10:16 TBASRV--TRANSMITTER BUFFER ADDRESS SERVICE 
77 --TRANSMITTER BUFFER ADDRESS SERVIC 
oo3 017122 TBASRV: LAD BRSB YS Ref Bothter TO END OF TMT CHAIN 
(1) 000300 cPc=mICPcti 
(1) 017122 019070 MOVE TL DMAR! IMM! <ETC8377> > 
775 (017124 LOMA MX. <SELB!SPX!SPO> :FIND THE LINK 
2 gre BB TE ete S95 
71 « 3¢ : $ »»> 
77% 017126 MEMING IMM. 1 :BUFFER ASSIGNED IN IN LINK FLAGS 
(1) 000302 MICPC=MICPC+1 
(1) 017126 316401 (MOVE ! WRMEM! INCMAR! IMM! < 1>> 
777. (017130 BRWRTE TMM INCHAR) , TML8 sPOINT PAST NUMBER FIELD 
(1) 000303 MICPC=MICPC+1 
(1) 017130 014543 (MOVE! WRTEBR! IMM! INCMAR! < TMLE> > 
778 :SET BR FOR ADDITION TO SFO 
779 (017132 MEMINC IBUS,PORT1 
1) 000304 MICPC=MICPC+1 
(1) 017132 136500 (MOVE !WRMEM! INCMAR! IBUS! <PORT1>> 
780 017134 MEMING 125 PORT2 
(1) 000305 MICPC=MIC 
(1) 017134 136520 <MOVE! HE TNCMAR? TBUS! <PORTE) 
781 017136 MEMINC IBUS, PORT 
(1) 000306 MICPC=MICPC+] 
(1) 017136 136560 (MOVE ! WRMEM Hz INCHAR! IBUS! «PORTS? 
782 017140 MEMINC IBUS,.PORT3 
(h) 000307 MICPC=MICPC+ +1 
(1) O17140 136540 (MOVE !WRMEM! INCMAR! IBUS! <PORT3> > 
782 O1714e LOMA T 
(1) 000310 NICPCAMICPCSI 
(1) o17142 010070 (MOVE !LOMAR! IMM! <ETC8377> > 
784 O17144 MEM IMM. TML1 sASSUME QUEUE WRAP AROUND 
(1) 000311 MICPC=MICPC Pc] 
(1) O17144 002471 MOVE! WRMEM! IMM! <TML1>> 
785 017146 CNP BR, SPO sEND OF CHAIN? 
(1) 900312 NICPC=MICP SL 
(1) 017146 060360 <SUBTC! BR! SP , 
78 017150 2 tt :IF YES--BRANCH 
(1) 900313 MICPC=MICPC+1 
(1) 917150 101716 < JUMP? ZCOND! < 1O$-INIT&3000#4> ! < 10$-INIT877772>> 
787 017152 BRURTE IMM. 6 “QUEUE ENTRY LENGTH 
(1) 000314 MICPC=MICPCH1 
(1) 017152 900406 (MOVE ! WRTEBR! IMM! <6>> 
788 017154 MEM BR. ADD! SPO SUPDATE THE END POINTER IN MEMORY 
1) 000315 MICPC=MICE pt+] 
(1) 017154 O62400 MOVE !WRMEM! BR! <ADD!SPO> > 
789 017156 10S: BRURT E InM e NUMBERED MSG PENDING MASK 
1) gi7ise po040s CHOVETHRTEER! ri <2) 
4 4 > 
580 stata SP BRO RO ,SP10 sUPDATE LINE STATUS 
1) 009317 MICPC=MICP 
(1) 017160 063310 MHGVE SPx" gttcone!$P10 
793; 017162 ALWAYS INSl2 
13 000320 MICPC=MICPC+1 3 
‘l) Ol71e2 100665 MME! AL COND! < INS12- ~INIT8300084> !< INSL2-INITS777 2) > 
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DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE 6-20 PAGE: 0178 
DDCHGH.MAC = 21-APR-77 10:16 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

733 TTL RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

4 . 017164 gon3ay RBASRY: L nlcecs nies - SADDRES END OF RECEIVE CHAIN 
t} 17184 Oi MM! <ERC8377>> 

sae gist COMA MX, <SELB!SPX! SPO> :GET THE POINTER TO LINK 
(1) 000322 LTCPCSMICEC? 

(1) 017166 053220 < 'LOMAR! MEMX! «SELB! SPX! SPO> > 

? 171 4 IMM. 1 

(1) 000323 MICPC=MICPC41 

(1) O17170 O16401 <MOVE !WRMEN? INCMAR! IM! <1) > 

teehee meee 

(1) 017172 00P 25 Sth cnnne TUS! <PORTL?? 

798 017174 .n INC IBUS,PORT2 

(1) 000325 MICPC=MICPC+1 

(1) O17174 136520 (MOVE ! WRMEM! INCMAR! IBUS! <PORT2> > 

799 (017176 MEMINC IBUS, PORTY 

(1) 000326 MICPC=MICPC+ 

(1) 017176 136560 CROVE 2 WRMEM! INCHAR! IBUS! <PORTY) 

g00 917200 TBuS PORT3 

(1) 000327 niger 

(1) 017200 136540 Mt NCMAR! IBUS! <PORT3> > 
801 “NOTE INVERTED ORDER OF PORT 3 AND PORTY 
802 017202 Inn 

(1) 000330 MICPC=MICP cH 

(1) Ol7202 010023 (MOVE! LOMAR! IMM! <ERC&377>> 
803 017204 MEM IMM, RCL 1 sASSUME WRAP AROUND CASE 

(1) 000331 NICPC=MICPC 1 

(1) 017204 oO02424 MOVE! WRMEM! IMM! <ROL1>> 
804 017206 BRR TE IMM. RCL? :GET ADDRESS OF END OF CAHIN AREA 
‘T} 17206 ObOdeS Oa 2 

< ° 2 . ( 

805 o12508 ;CHECK FOR END 

(1) 000333 MICPC=MICPC+1 

(1) 017210 060360 <SUBTC! BR! SPO> . 
806 017212 2 le :IF EQUAL BRANCH 

(1) 000334 MICPC=MICP 

(1) O17212 101665 CJURB? ZEON INS 12-INITB300044) <INS12-INIT8777/2>> 
e907 017214 BRWRTE IMM -CALCULATE ADDRESS OF NEXT LINK 
(1) 000335 MICPC=MICPC41 

(1) 017214 900405 CHOVE! WATEDR: 1912 <5)? 
808 017216 . ii 2 a 

aes 

(1) 017216 aertta IgPe: nyc "a 
803 017220 ‘ aL ua Sr iNele sEXIT 

j = 

(1) 017220 anes aired AL ONO! «INS12-INITS300084 !<INSL2= -INIT877772>> 
810 017222 : RAL: RicrcenieP IMM yl? MASK TO CLEAR START MODE AND CLR ACTIV 
(1) 017222 nenaeg NET ett<a17>> 

811 017224 Sper” BR. AANDB, SP10 sCLEAR BIT IN LINE STATUS WORD 
(1) 000341 MICPC=MICPC+1 

(1) 017224 063670 MSE: SPERX? BR! AANDB! SP10> 

Ble 017226 RA3: BRWRTE IMM,O :CLEAR BR 

(1) o00342 MICPC=MICPCH1 


017226 900400 «MOVE! WRTEBR! IMM! <O> > 


. 
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OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-21 PAGE: 0179 
DDCHGH.MAC 21-APR-77 10:16 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 

813 017230 SP BR, SELB, SP13 SET NUMB MESSAGE TYPE IN SP13 

t) 0172 eeree ag yp 

< 

814 O17e STAT ve CHANGE RECEIVE STATE POINTER TO STATE 8 

(1) 000344 MICPC=MICPC+1 

(1) 017232 900424 MOVE MRTEBR? IN <RCYB- -INIT8777/2)> 

els 017234 te ALL REXIT 

i o17eay  BBaeE nig cee SE NDE CREXIT- -INIT&3000%4> ! <REXIT-INIT8777/2) > 

8i8 017236 ACK:  BRWRT BR AR AA!SP1O sREAD LINE STATUS SHIFTING LEFT 

(1) 000346 SRCECOMTEE 

(1) 017236 060530 <MOVE! WATEBR! BR! <AA!SP10>> 

819 017240 BRY S$ IF START RECD--CLEAR START MODE 

(1) 000347 NICPC=N MICPC+1 

(1) 017240 103351 < JUMP! BRICON! <S$-INIT&3000#4> ! <S$-INIT877772>> 

820 017242 ALWAYS IDLE 

(1) 000350 MICPC=MICPC+1 

(1) o17e42 100451 <JUMP# ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777 2) > 

821 017244 Ss: BRWRTE IMM, 327 CLEAR START MODE 

(1) 000351 MICPC=MICPC41 

(1) 017244 O00727 (MOVE! WRTEBR! IMM! <327>> 

B22 017246 SP BR, AANDB, SP10 SIN LINE STATUS 


(1) 0003S2 MICPC=MICPC+1 
(1) 01724 063270 <MOVE ! SPX! BR! AANDB! SP10> 

823 017250 ALWAYS RDS 

(1) 000353 MICPC=MICPC+1 

(1) 017250 104507 < JUMP!ALCOND! <RDS-INITS$3000#4> ! <RDS-INIT3777/2)> 
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DMC11 DDOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-22 PAGE: 0180 
DOCHGH.MAC = 21-APR-77 10:16 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
26 017252 < HOSEL : cone 100 ;HD MASK TO BR 
( - 
(]) 7 « MM! <100>> 
? Bi eSe6 atts ok, Mage 18 ;UPDATE PORT STATUS WORD 
(1) 000355 aTCPCeMTEPC +] 
(1) 017254 063310 <HOVE SPX: R!AORe! SP10> 
828 017256 ALWA Ne! 
(1) 000356 ALCP CoMT 
(i) 017256 100663  FGHE TAL COND! <INSL1-INITS&3000%4> ! CINSL1-INIT8777/2> 
830 017260 PEL: BRwRTE IMM, 300 ;MASK FOR INTERUPT AND VECTOR THROUGH X04 
(1) 000357 MICPC=MICPCH1 
(1) 017260 000700 CHOVE! RTEBR! IMM? <300> 
831 017262 SP IBUS, UBBR, SPO ;READ BR CONTROL REG 
(1) 000360 MICPC=MICPC+1 
(1) 017262 123220 «HOVE! SPX! TUS! UBBR: SPO? 
832 017264 OUT <AORB! OBR> ; INTERRUPT 
(1) 000361 SL OPCAMTEPe+1 
(1) 017264 061311 <MOVE! ROUTX! BR! <AORB! OBR) > 
834 017266 ALWAYS IDLE 
(1) 000362 MICPC=MICPC+1 
1) 017266 100451 «JUMP! ALCOND! < IDLE-INIT&3000#4> ! < IDLE-INIT8777/2> > 
840 017270 HALTED: MEMADR EMG 
(1) 000363 MICPC=MICPC+1 
(1) 017270 O0e722 CHOVE TURNER? <EMG- -INIT877772>> 
B41 ;FALL_INTO ACLOW 
842 017272 ACLOW: BRWR :CAUSE AN AC LOW 
(1) 000364 RicpcetICPc rye 
(1) 017272 900402 (MOVE! WRTEBR! IMM! <2>> 
843 017274 OUT BR. «SELB! 0BR> 
(1) 000365 Se PCeNIEP eH 
(1) 017274 061231 TA VET WROUTX!BR! <SELB! OBR) > 
844 017276 S$: BRWRTE IBUS, UBBR :WAIT FOR IT TO COMPLETE 
(1) 600366 MICPC=MICPC+ 
(1) 017276 120620 (MOVE! WRTEBR! IBUS! <UBBR> > 
B45 017300 BRI $s 
(1) 000367 MICPC=MICPC+1 
(1) 017300 102766 < JUMP! BRICON! <S$-INIT&3000#4> ! <S$-INIT8777 72> 
846 017302 -ALWAY MEMX, SELB, PA 
(1) 000370 MICPC=MICPC+] 
(1) 017302 154620 < JUMP! ALCOND! MEMX! SELB! PAGE3> 
847 017304 CKTIME: BRURTE IBUS. UBBR ;READ BR CONTROL REG 
(1) 000371 MICPC=MICPC+] 
(1) 017304 120620 <MOVE! WRTEBR! IBUS! <UBBR> > 
e4e 017306 BRY HAL TED 
(1) 000372 MICPC=MICPC+1 
(1) 017306 103363 < JUMP! BRYCON! <HAL TED-INIT83000#4> ! <HALTED-INIT8777/2> > 
849 017310 aL WAYS EMI 
(1) 000373 MICPC=MICPC+1 
(1) 017310 114725 < JUMP! ALCOND! <EM1-INIT&83000#4> ! <EM1-INIT8777/2>> 
851 017312 tBul: BRWRTE IBUS,NPR 
(1) 000374 MICPC=MICPC+1 
(1) 017312 120600 <MOVE !WRTEBR! IBUS! <NPR> > 
852 017214 BRO IDLE 


2 


S 
@ 


Siupntilincmetiiicaaen 
—o— nonediieatae 
Une we fee hwo w 


M14 


CMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-23 PAGE: 0181 
. MAC 21-APR-77 10:16 RBASRV--RECEIVE BUFFER ADDRESS SERVICE 
000375 Menace cet 
017314 102051 JUMP! BROCON! « IDLE- ~INIT&3C00#4> ! ‘IDLE-INIT877772>> 
017316 ALWAYS 1 
000376 chan, CPC+1 
017316 1147Se < JUMP! AL COND! <EC2-INIT&3000%#4> ! <EC2-INIT&777/2) > 
017320 $ZER 
000377 MICPC=MICPC+1 
017320 000000 000000 


BORLA RRC PRSTOPR POPE ATION -RBASAV REEVE Perea Sevier ae, eee 


957 017322 <=INIT+1000 
gg er lt VA--ROUTINE TO HANDLE FIRST DDCMP CHARACTER 
8° Ls “ROUE Ne OP 
861 ME hoe TYPE IS NUMBERE D, UNNUMBERED OR BOOT 
862 NETS ROPRIATE STATES FOR REST OF Cnece 
863 017322 RCVA: ists "BUS jRevORT, SPO ; READ RERETVE CHARACTER TO SPO 
(1) 000400 MICPC= aHICRC 
(1) 017322 023200 «MOVE! | 
864 017324 BRWRTE BR,SELA!SP1 READ PORT STATUS WORD 
(1) 000401 MICPC=MICPC+1 
(1) 017324 060601 (MOVE! WRTEBR! BR! <SELA!SP1>> 
865 017326 BRO cs ;IF INIT MODE---ONLY BOOT OK 
(1) ogo4d2 MICPC=MICPC+1 
(1) 017326 106012 < JUMP! BROCON! <S$-INIT&3000#4> ! <S$-INIT&777/2>> 
866 017330 BR7 S$ IF BOOT MODE---ONLY BOOT OK 
(1) 000403 MICPC=MICPC+1 
(1) 017330 107412 < JUMP! BR7CON! <SS-INIT&3000"4> ! (SS=INIT777/2)) 
867 017332 BRWRTE MM, 201 ;SOH TO BR 
(1) o00404 MICPC=MICPC41 
(1) 017332 000601 «MOVE! WRTEBR! IMM! <201>> 
868 017334 CMP 0 ; COMPARE BR TO SPO 
(1) NICPC=MICPC AL 
(1) 017334 060360 <SUBTC! BR! SP 
869 017336 2 ot ae IF EQUAL-IS NUMBERED MESSAGE 
(1) 000406 MICPC=MICPC+1 
(1) 017336 101740 < JUMP! ZCOND! <RAL-INIT&3000#4> ! <RAL- <INI18777/20 
870 017340 BRWRTE IMM’ S sENQ TO BR 
(1) 000407 MICPC=MICPC41 
(1) 017340 oOo40S «MOVE! WRTEBR! IMM! <5>> 
871 017342 CMP SPO COMPARE ENG TO SPO 
(1) 000410 MICPC=MICPESL 
(1) 017342 060360 <SUBTC! BR! SPO> 
87e 017344 2 RAG IF EQUAL-IS UNNUMBERED MESSAGE 
(D) 17344 estes arte et '<RA2-INIT&3000%4> ! <RA2- ~INITB777/2)> 
: - >! 
873 Ot ade S$: SRURTE PHM 280 :DLE TO BR 
() 017 ae RIpCSNICECL MM! <220>> 
BP4 giz a6 C ay ;COMPARE DLE TO SPO 
(1) 000413 MICPC=MICPC+1 
(1) 017350 060360 <SUBTC! BR? SPO? 
875 017352 2 BOOT IF EQUAL IS BOOT 
(1) 000414 MICPC=MICPC+1 
(1) 017 105756 «JUMP? ZCOND! <BOOT-INTT&3000%4) ! <BOOT-INIT8777/2> > 
876 017354 FLUSH: OUTPUT IMM. <200!0RCVC FLUSH INPUT SILO 
(1) 000415 MICPC=MICPC41 
(1) 017354 o02212 <MOVE ! WROUT ! IMM! «200! ORCVCO> > 
877 ;(LOW ORDER BITS READ ONLY) 
878 017356 BRWRTE wrote 357 !MASK TO CLEAR--CLEAR ACTIVE 
(1) 9004416 MICPC=MICPC41 
(1) 017356 757 «MO GVE HATER! In 357)» 
879 017360 SP ,SP10 sIN LINE STATUS WORD 
(1) 000417 nicecantcrtt 
(1) 017360 063270 MOVE! OEY BR! AANDE! SP10> 
884 017362 RMI: STATE RCVA 


B1S 


TATION MACY11 30( 10h} 11-JUL-77_ 12:25 PAGE 6-25 PAGE: C0183 
RCVA=-ROUTINE TO HANDLE FIRST DOCMP CHARACTER 
MI ceeanTeecst 
ll IMM! <RCVA-INIT&77772> > 
nee! 
1 hee (REXIT-INIT&83000#4> ! <REXIT-INIT877772>> 
RA2: ;CHANGE RECEIVE STATE TO I 
RICPEEMICECS 1 
(MOVE !WRTEBR! IMM! <RCVI-INIT8&77772>> 
ae, REXIT 


CPC=MICPC+1 
« JUMP! ALCOND! <REXIT-INITS3000#4> ! «REXIT-INIT87772) > 


SALA” PGR RSETOTN BREATH, Math Tins Sle Stow rie. rks Om 


8% SBTTL RCVB--ROUTINE T TO HANDLE FIRST CHARACTER OF COUNT FIELD 
é 

638 ieee COUN Et aD AND SETS UP RCVC AS NEXT STATE 

900 017372 RCVB: 

301 017372 ett at * TBUS RCVDAT, SP4 ;READ CHARACTER TO SP4 

(1) 017372 023204 iSvE! Sy Tals revortsse 

902 017374 BR, <SELA!SP14 ;LOAD MAR WITH ADDRESS OF CURRENT 2A 
(1) o00425 nICPCaNIC IcPe+1 

(1) 017374 070214 CMOVE?L DRA? BR! <SELA!SP14> 

$03 017376 BRWRTE MEMX. INCMAR! SELB :READ FLAGS BYTE 

(1) 000426 MICPC=MICPC+] 

(1) 017378 oS4620 MOVE! WRTEBR! MEMX! < INCHAR? SELB) 

304 017400 BRO 1 :RECV BUFFER ASSIGNED---CONTINUE 
(1) 000427 MICPC=MICPC+1 

(1) O17400 106041 ( Jue) BROCONE «Re INIT&3000%4> # <RB1-INIT8777/2>> 

30S 017402 BRWRTE 8R.SELA!SP1 :READ STATUS BYTE 

(1) 000430 MICPC=MICPC41 

(1) 017402 060601 CMOVE 'WRTEBR! BR! (SELA!SP1>> 

906 917404 BR? R83 sMAINT MODE 

(1) 000431 MICPC=MICPC+1 

(1) 017404 107437 < JUMP! BR7CON! <RB3-INIT83000#4> ! <RB3-INIT8777/2)> 

907 017406 LDMA :ERROR--LOAD TYPE FIELD ADDRESS IN MAR 
(1) 000432 MICPC=MICPC$1 

(1) 017406 O1015! «MOVE! LOMAR! IMM! <T8377>> 

908 017410 MEMINC :LOAD NAK TYPE 

(1) 000433 MICPC=MICPC41 

(1) O17410 O16402 (MOVE! WRMEM! INCMAR! IMM! <2) > 

309 017412 MEM IMM. 310 sLOAD SUB-TYPE NO BUFFERS 

(1) 000434 MICPCMICPCHT 

(1) O17412 002710 (MOVE! WRMEM! IMM! <310>> 

$i0 017414 Lona IMM. NTLS 

(1) 000435 MICPC=MICPC$1 

(1) 017414 O10012 (MOVE! LOMAR! IMM! <NTLS&377>> 

911 O17416 ALWAYS RHS ;BRANCH TO SEND NAK ROUTINE 
(1) 900436 MICPC=MICPC+1 

(1) 917416 104552 CJURBTALEOND! cRHS- INIT83000%4> ! «Ru INIT3777/2> > 

912 017420 RB3:  BRWRTE IMM.4 MASK FOR NO BUFFER AVAILABLE 
(1) 000437 MICPC=MICPC41 

(1) 017420 900404 <MOVE !WRTEBR! IMM! <4 > 

$13 017422 SP BR, AORB, SP1 :SET THE FLAG 

1) 000440 MICPC=MICPC+1 

(1) 017422 063301 MOVE! SPX! BR! AORE! SP» 

$14 017404 RBi: STATE RCVC 

(1) 000441 MICPC=MICPC+1 

(1) 017424 O00461 CHOVE !WRTEBR! IMM! <RCVC- -INIT8777/2>> 

SiS 017426 RBO: SP BR, SELB, SP3 

(1) ooo442 MICPC=MICPC+1 

(1) O17426 063223 «MOVE ! SPX! BR! SELB! SP2> 

S16 017430 OUTPUT <MEMX? INCMARD , “SELB! OBAL> ; OUTPUT LOW ORDER BYTE OF ADDRESS 
(1) 000443 MICPC=MICPC+1 

(1) 017420 OS6226 MOVE TWROUT! MEMX! INCMAR! “SELB! OBAL L>»> : : 
$17 017432 OUTPUT HENX? INCHAR, (SELB'OBA2> ;OUTPUT HIGH BYTE OF ADDRESS 
1) ooo444 MICPC=MICPC 

‘L) G1743e OS6227 «MOVE! WROUT! THEMX! INCMAR! (SELB! 0BA2>> 


ONC11 DOCMP PROTOCOL a a: tiene 
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017434 


017434 
017436 


017436 
017440 


017440 
017442 


017442 


017444 


017444 
017446 


017446 
017450 


0174S0 
0174Se2 
0174Se2 
017454 

174S4 
17456 


017456 
017460 


017460 
017462 


337462 


OO044S 
1e3220 
OOO446 
o00S01 
00G447 
063260 


0004S0 
003305 


000451 
O4C6ES 


0004Se2 
001620 


000453 
001620 


O004S4 
001620 


oo04ss 
001620 


OOO4SE 
061311 


0004S7 
1004Si 


990460 
100456 
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RCVB--ROUT 


R8e: 
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O46) I1-JUL-77 12:25 


ag 


SP IMM, 300, SPS 
MICPC=MICPC41 
«MOVE! SPX! TMM! 300! SPS> 


BRWRTE MEMX. AANDB!SPS 
MICPC=MICPC+] 
HOVE! HRTEBR! MEMX! <AANDB!SPS> > 


MICPC=MICPC+1 
«MOVE! SHF TBR! WRTEBR! SELB> 


BRSHF T 
nICP Centre! 
a padamengs ype 


BRSHE 
MICPC=MICPC+1 
epee nee ee 


MICPC=MICPC+1 
«MOVE! SHF TBR! TWRTEBR! SELB> 
BR, AORB! OBR 


OUT 
MICPC=MICPC+1 
stinreen ee onenoee 


ALWAYS 
MICPC=MICPC+1 


PAGE 6-27 
TO HANDLE FIRST CHARACTER OF COUNT FIELD 
;READ THE BUS REQ REGISTER 


;MASK OFF ALL BUT NXM AND YEC4 SITS 
;AND SAVE IN SPO 


;MASK TO ISOLATE EX. MEM BITS 


;NOTE_THIS REALLY WRITES A 30S BUT THE 
:5 GETS SHIFTED 0 
;MASK ALL BUT EX. MEM BITS 


:SHIFT THEM INTO THE CORRECT PCSITION 


;WRITE EX MEM BITS OUT 


JUMP LALCOND! < IDLE-INITS3000#4 # < IDLE-INITS777.2>> 


ALWAY 
MICPC=MICPC+1 


CTUMB! AL COND! « 12- INITS300C#4> $< T2-INITS77772>> 


PAGE : 


018s 


E15 


art on PROLSAPR-oo Torte ON Reve==R HAE to HANDLE SECOND ERARACTER OF COUNT FIELD, SELECT AND FINAL pre Lene 


933 SBTTL ROVC--ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FING 
934 ENTER TERED FROM IDLE LOOP 

935 AND FINAL 

336 ‘one KS FOR COUNT TOO LARGE 

938 017464 RCVC: 

943 017464 SP IBUS, RCVDAT, SPS :GET CHARACTER 

(1) 000461 MICPC=MICPC+] 

(1) O17464 023205 «MOVE! SPX! TBUS! RCVDAT! SPS> 

944 017466 BRWRTE IMM. 200 ;SEPARATE SELECT BIT FROM COUNT 
(1) 9004%2 MICPC=MICPC41 

(1) 017466 000600 «MOVE ! WRTEBR! IMM! <200>> 

345 917470 BRWRTE BR. AANDB!SPS 

(1) 000463 MICPC=MIC cPt+1 

(1) O17470 O60665 MOVE? WRTEBR! BR! (AANDB! SPS) > 

$46 017472 SF BR, AORS, 

(1) o00464 MICPC=MICPC+1 

(1) 017472 063310 CRGVE? SPX! BR! AORB! SP10> 

947 017474 LOMA MM :LOAD MAR TO BYTE COUNT 
(1) 900465 NICPC=MICPCH 

(1) O17474 910167 HOVE LDMAR? IMM! <BCB377> > 

948 917476 MINC BR, SELA!SP4 :SAVE LOW BYTE 

(1) OOC4ES MICPC=MICPC+1 

(1) 017476 O76604 CMOVE !WRMEN! INCMAR!BR! <SELA!S?°4> > 

949 917500 MEM INC BR, SELA!SPS :AND NOW HIGH BYTE 
(1) 000467 MICPC=MICPC+1 

(1) 017500 O76605 <MOVE! WRMEM! INCMAR! SR! <SELA!SPS> > 

961 617502 RCS: STATE. -RCVD :SET NEXT STATE TO D 
(1) 000470 MICPC=MICPC+1 

(1) 017502 o0047e CHOVELUATEBR IMM! cRCVD-INIT8777 2) 

92 917504 ALWAYS REXIT 

(1) 000471 MICPC=MICPC+1 

(1) O17504 100450 <JUMPLALCOND! (REXIT-INITS300084) ! <REXIT-INIT3777 2)» 
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00S472 
000513 


000473 
063223 


000474 
023600 


000475 
060757 


000476 
107500 


000477 
100451 


o00S00 
060601 


000501 
103451 


000592 
060610 
000503 
001620 
000504 
103051 
o00S05 
0101S3 
OO0S0& 
062600 


000507 
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ee 30(1046) 11-JUL-77 12:25 PAGE 6-29 PGE : 
RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 


-SBTTL RCVD--ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBEPED MESSAGES 


atATE —_RCVE 

MICPC=MICPC+1 

MUS VE IWR TERR! IMM! <RCVE-INIT8777/2>> 
SELB, SP3 ;SAVE THE STATE 


RLopecnIcetst F 

SPBR _ IBUS.RCVDAT, SPO - INPUT THE CHARACTER 

RIC CPCR cps 

BRWRTE BR.SUBISP17 :COMPARE NEW R TO LAST R 
MICPC=MICPC+1 

<MOVE! WRTEBR! BR! <SUB!SP17>> 

BR? IF NEW IS GREATER---PROCESS 
NICPC=NICP C+1 


UMP! BR7CON! < 1O$-INIT&3000#4> ! < 10$-INIT&77772>> 
S oe 


ALWAY 
MICPC=MICPC+1 

<JUNP LAL COND! < IDLE- ~INIT&3000#4> ! < IDLE-INIT8777/2) > 
BRWRTE BR, SELA'SP1 “READ STATUS BYTE 
MICPC=MICPC+1 

(MOVE! WRTEBR! BR! <SELA!SP1>> 
BR? I :MAINT. MODE - GET OUT 
MICPC=MICPC 


ere Seemann (IDLE-INIT8777/2>> 


BRWR 
MICPC=MIC 
1 laren 


BRSHF 
pa ie aa 
—_ aes” gsi capac 


BRY 
Mm cPC= 1 
} UMP! BACON! <IDLE-INITS3000%4> ! < IDLE-INIT8777. 2)» : 

(OMA MM, ISP17 :ADDRESS LAST ACKED IMAGE , 
NICPC=NICP PC+] 


MENLO OS Sie reer) 
MEM BR, SELA! SPO ;COPY THE CHAR 
ere ae 
« 
BRWRTE _INM'LOMAR, REPST ;SET UP COUNT FOR TIMER 
MICPC=MICPC+1 
(MOVE! WRTEBR! IMM!LOMAR! <REPST> > 
; ###*DEPENDENT ON REPST = 
RESET REP THRESHOLD 


1 
fu 


MEM 
MECPC=NTCPCS1 


SP BR, SELB, SP1S :RESET THE COUNT 
MICPC=MICPC+1 
«MOVE! SPX! BR!SELB!SP1S> 

S IDLE 


ALWAY 
MICPC=MICPC+1 oe 
«JUMP! ALCOND! < IDLE-INITS3000#4> !< IOLE-INIT38777-2> 


G15 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) 11-JUL-77 12:25 PAGE §-20 PAGE: o198 
DDCHGH.MAC = 21-APR-77 10:16 RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 

375 .SBTTL RCVE--ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 

- : 

977 017550 RCVE: BRURTE BR, SELA!SP1 :READ THE STATUS BYTE 

(1) 009513 MICPC=N MICPe+1 

(1) 017550 060601 (HOVE! WRTEBR!BR! <SELA!SP1> > 

978 017552 RCVQ 

1) 000514 SRP CaN ICPC+1 

(1) o17SS2 107703 < JUMP! BR CON? <RCVO-INIT83000#4) ! <RCVQ-INIT877772> > 

979 017554 BRWRTE IBUS, RCVDAT - INPUT THE CHARACTER 

(1) 900515 MICPC=MICPC+ 

(1) 017554 20600 <MOVE! WRTEBR? [BUS! <RCVOAT) » 

980 017556 CMP BR. SP11 

(1) 000516 MICPC=MICPC+1 

(1) 017556 060371 Coup TC! BR! SPI) 

981 017560 2 c$ 

(1) 000517 MICPC=MICPC+1 

(1) 017560 105522 <JUMP! ZCOND! <S$-1NTT&3000#4> ! S$-INIT877772) > 

982 017562 SP BR, DECA, SPi2 :FORCE MSG TYPE TO -1 

(1) o00s20 MICPC=MICPC+1 

(1) 017562 063173 (MOVE ! SPX! BR! DECA!SP13> 

983 017564 ALWAYS RE2 

(1) 000521 MICPC=MICPC+1 

(1) 017564 104523 <IUNP! ALCOND! <RE2-INIT83000#4 ! «RE2-INIT8777/2) > 

984 017566 S$: BR, INCA, SP11 ;UPDATE R FIELD 

(1) oo0s2e2 RICPC=M MICPC+1 

(1) 017566 063071 <MOVE !SPX?BR! INCA? SPL) da 

985 017570 RE2: STATE sNEXT RECEIVE STATE IS F 

1) 000523 MICPC=M 1epcr! 

(1) 017570 900525 CROVE WR TEBR! IMM! <RCVF- INIT38777/2>> 

986 017572 ALWAYS REXIT 

C1) oo0s24 MICPC=MICPC+1 

{1} 017572 10045¢ < JUMP! ALCOND! «REXIT-INITS3000#4 ! (REXIT-INITS777 72): 


H15 


OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-31 PAGE: 0189 
DOCHGH.MAC = 21-APR-77 10:16 RCVF--ROUTINE TO IGNORE ADDRESS 
983 .SBTTL RCVF--ROUTINE TO IGNORE ADCRESS 
989 017574 RCVF: SP BR, DECA, SPY :GECREMENTLOW BYTE OF COUNT 
(1) 900525 MICPC=MICPC+1 
(1) 017574 O63164 CROVE!SPX: BR! DECR! SP 
990 017576 RCV FO :NO OVERFLOW 
iL) 000526 ntcecentcrc 
(1) 9175 10S130 CAST COOND! <RCVFO- ~INIT83000#4> ! <RCVFO-INIT8777/2> > 
1 0178C spur BR, DECA, SPS “OVERFLOW - DECREMENT HIGH BYTE 
(1) o00s27 MICPC=MICPC+1 
(1) 9176 063165 rie egies 
3 RCVFO: STATE  RCVG 
cL) 000530 MICPC=MICPC+1 
(1) 017802 000533 (MOVE ! WRTEBR! IMM! <RCVG-INIT8777/2> > 
993 017604 RCVF1: NOP IBUS. RCVDAT, 0 “INPUT CHARACTER - AND DISCARD 
(1) 900521 MICPC=MICPC+ 
(1) 017604 O20200 <TBUS!RCVDAT!0> 
394 017606 ALWAYS REXIT 
(1) oo0532 MICPC=MICPC+1 
iu 017606 100450 ‘JUMP! AL COND! <REXIT-INITS3000#4) ! <«REXIT-INIT8777 72) > 
336 ‘SBITL RCVG--ROUTINE TO IGNORE CRC1 
$98 017610 RCVG: STATE RCVH :NEXT STATE IS RCVH 
(1) 990533 RICPESMICE C+1 
(1) O17610 900535 COVE WRTEBR? IMM! RCVH- -INIT8777/2>> 
399 017612 ALWAYS RCVF1L 
(4) 900534 MICPC=MICPC+1 
i) Ol7612 194531 < JUMP! ALCOND! <RCVF1-INITS3000#4> ! «ROVE 1-INIT3777/2>> 


DMC11 DDCMP PROTOCOL IMPLEMENTATION 


DOCHGH. MAC 21-APR-77 10:16 
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oc0s40 
060601 
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oo0s4e 
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000S43 
001620 


ooos+4 
117307 
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010i51 
O00S+6 
016402 
000S47 
016701 
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MACY11 30(1046) 11-JUL-77 12:25 PAGE $-32 


RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


RCVH: 


RHS: 


PAGE : 


0190 


.SBTTL RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 


SP IBUS, RCVDAT, SPO 
MICPC=MICPC+1 

<HOVE SPX? [BUS? RCVDAT ! SPO? 
BRWRTE IBUS.R 

MICPC=MICPC+ _ 

(MOVE !WRTEBR! IBUS! <RCVCON > 
BRO TOON 


ores CPC+1 


;GET CHAR IN SPO 


;READ RECVR CONTROL REGISTER 


;IF BCC MATCH SET CRC IS GOOD 


Jue  BRGEON «TOON INIT&3000#4> ! < TDON1- INIT8722772) > 


BRURTE BR. SELA 

MICPC=MICPC+1 

(HOVE! URTEBR! BR! <SELA!SPL> > 
7 RHX 


BR 
MICPC=MICPC+1 


;READ STATUS BYTE 


;MAINT MODE 


<« JUMP JIB BR7CON! cRHX~INITS300084) <«RHX-INIT877772>> 
(SEL A!SP10> ;RE 


BRWR 
MICPC=MIC 
(MOVE! URTEBR! DP! “SELA! SP10> 


BRSHF T 
MICPC=MICPC+1 
«MOVE! SHF TBR! WRTEBR! SELB> 
SNAK | 


BRY 
MS cancer 1 


AD PORT STATUS WORD TC 8R 


;IF START MODE--PROCEED TO RESEND START 


UMP! BRYCON! < SNAK 1- INI T&3000#4> ! <SNAK1-INIT877772)> 
T ;ELSE BCC ERROR--LOAD ADDRESS OF TYPE FI 


LOMA 
MICPC=MICPC41 
CHOVELOBAR? Im! ¢8377> 


MEM 

MICPC=MICPC41 

(MOVE! WRMEM! INCMAR! IMM! <2>> 
MEMINC IMM, 301 


MICPC=MICPC#1 

(HOVE! MRHEN? INCHAR! Int (301> > 

MEN RASELA!SP? 

MICPC=MI 

HOVE! WRMEN! BR! <SELA! SP17> > 

LOMA __ IMM, NHDS 

RICPCaNICPC Pct] - 
MOVE? COMAR? IMM! <NHDS8377> > 


et MEMX, SELB, SPG 
MICPC=MICPC+1 
COVE! SPX? MEMX? SELB! SPO) 


MEM 

Pe ecan Tepes +1 

<HOVE !WRMEM? BR? < INCA!SPO> > 
MM. NAKST 


LOMA 

MICPC=MICPC41 “ 
CAVE :LORAR? Tmt cNAKST8377>> 
BRWRTE MEMX, SELB 
MICPC=MICPC+h 

cHOVE 2 URTEBR!MENX! < SELB? 


BSHF TB 
MICPC=MICPC+1 


ee 


;WRITE NAK TYPE 


;WRITE HEADER BCC ERROR SUBTYPE 
;RESTORE LAST ACKED IMAGE 
;ADDRESS CUM ERROR COUNTER 
;WRITE IT TO SPO 
; INCREMENT IT 
;ADDRESS NAKS TMTED DYNAMIC 
;WRITE IT TO BR 


:SHIFT IT RIGHT 
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17eb2 
Bi Pees 
1F8Be 
Bi 7878 
017670 
017672 


017672 


17674 
17676 


017676 
017700 


017722 
017724 


Ra PEL ETT 


061620 


beeees 


000560 
116256 


oo0S6i 
114704 


000S6e 
060$73 


000563 
115467 


000572 
010162 


000573 
054373 


090574 
115411 
0005 

aS4373 
000576 
LiS44s 
000577 
010164 
000600 
054373 
000601 


MACY11 
RCVH--R 


RH3: 


:0S: 


Utne to hANOLE™ thle BYSPRTeH NUMBERED AND UNNUMBERED TYPES 
= Mae 


MEN are ;UPDATE IT 
hie Ele cen, 
a0 me. ;BRANCH IF THRESHOLD EXCEEDED 
TERIOR anees-intimcorttes-I1877/0 
mucrcemrePesy 
mere <SNAK=INITS3000#4> # « SNAK~INIT8777 29> 
BRARTE OP, <DECA!SPIg) ;LOAD TYPE RECEIVED--DECREMENTING 


«MOVE! WR RIDP! <DECA!SP13)> 


MICPC=MICPC+1 

< JUMP! 2COND! <RH1-INIT&3000#4> ! <RH1-INIT8777/2>> 
RSTATE RCVA 
oe 


;IF ALUOUT ITS OLL ONES IS NUMBERED MSG 


;LOAD LINE STATUS WORD IN BR 
aD 5 a ETS: 
PUT IMM, <200!0RCVCO> 


OUT 
MICPC=MICPC+1 
La aucune apenas 


BRSHF ;SHIFT RIGHT 
MICPC=MICPC+1 
HOVE! SHETER! MRTEBR! SELB> 
BRY Os 
MICPC=MICP 7 
CJUMP!BRACON! < 10$-INIT83O00#4)>! <J08-INITS777/2 
LOMA IMM, TYPTAB ADDRESS TYPE TABLE 


MICPC=MICPC41 
MOVE! LOMAR! IMM! < TYPTABB377> 
MP MEN! INCM 


C MAR> ,SP13 
MICPC=MICPC+1 

ares ee ar 
MICPC=MICPC 


+1 
<« JUMP! ZCOND! <REP-INIT&3000%4> ! <REP-INIT8777/2>> 
CMP —ee SP13 
MICPC=MICPC ?} 
<SUBTC! ay NCMAR! SP 13> 


2 

7 ICPCeNICPC#1 

«JUMP! ZCOND! <NAK=INITS3000#4> # «MAK = NIT3777/2>> 

LOMA © IMM. TYPST :SET POINTER TO START TYPE 
MICPC=MICPC41 


(MOVE! LOMAR! IMM! < TYPSTT8377> 
C <MEMX! INCMAR> , SP13 
MICPC=MICPC+1 

<SUBTC! re) eR TD 


Z 
RICPCENICPC*| 


me re ee ee et ee ce -- oe oe ewe 


PAGE: 
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DMC11 DDCMP PRQTOCO MPLEMENTATION MACY11 30(1046)  1J-JUL-77 12:25. P -34 PAGE: 0192 
DOCHGH. MAC AY rene Ree gat Re “ Hanoce bace S65 To BERT aH NUMBERED AND UNNUMBERED TYPES 

(1) 017724 115420 < JUMP! ZCOND! <START-INIT&3000%4> ! <START~- “INT E77 a 

t ny) 017726 CMP HX? INCHARD , SP13 

(1) 000602 MICPC=MICPG+ 

(1) 017726 054373 <SUBTC!MERKE INCHAR! SPL 

1048 017730 : 

(th 017730 peti Cre ong Tstack- INI T83000#4>! stay INIT&77772>> 

1049 017732 <MEMX!# INCMAR> , SP13 sACK TYPE 

(1) 000604 AYCOCAMICPE+ 1 

(1) 017732 054373 <SUBTC! MEMX! INCMAR! SP13> 

1050 017734 2 ACK 

aD 1 ree CTU: ZCOND! LACK INIT83000%4> ! <ACK-INIT&777/2) > 

77 - #4) 5 ¢ - > 

168} 1oo3e ALWAYS eHPE OTHERWISE IGNORE--MUST BE OBS MSG 

(1) 000606 MICPC=MICPC4! 

(1) 017736 100451 < JUMP! ALCOND! < IDLE-INIT83000#4> ! < IDLE-INIT&777/2>> 


OMC11 DOCMP PROT°°OL IMPLEMENTATION 
21-APR-77 10:16 


DDCHGH . MAC 


- 


017740 


i 
anand & | 
ere. 
Sa | 


017740 
017742 
017742 
017744 


017744 
017746 


é 


m= oe pee 
g-— 
— Ne ss 
ee ee wa Dew 


Ba-CJOCS 


rc 


> (CO -—— 
— oe ew 
oO 
—s 


8 
Qo 00 00 00 00 00 OO 


— — 
nvr “nH Onmm 
— — — po 
we —w ww 


3 
ga? 2k ge Be 


— 


— 0 Oe 


43 43 3333 33 39 


— 


N 
4 oN 
~ 
ay) 


- 
NN 
a | 
t~ 


000607 
123600 


T0288 
1 1 
000611 
000600 


000612 
063300 


000613 
0006S3 
000614 
104620 

0615 


00 
123600 


0006 16 
106247 


000617 
000625 


000620 
063223 
000621 
022203 
000622 
000421 
000623 
061310 


o00624 
100451 


MACY11_ 30(1046) 11-JUL-77 12:25 PAGE 6-35 


L15 


RCVH--ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 
; RRRRRERERERHREHEETIME CRITICAL CODE-- CHANGE WITH GREAT CARE S#eeeeeR ERE ERE E SEES 


RCVKOL: 


RCVKO: 


RCVKOe: 


RKB: 


RK?7: 


TTL RCVKOI--ROUTINE TO HANDLE FIRST BYTE ODD RECEI 
éBBR . TOUS CAPR yo “READ NPR REGISTER 
MICPC=M moped 


«MOVE ! SPBRX! IBUS! NPR! SPO> 


M =M +} 
dune! eROcon! A aa ~INIT&3000#4> ! < IOLE-INIT8&77772>> 


. ;MASK FOR CO(BYTE TRANSFER) 
TAGE go> 


M 
< cscenmtrcn RCVKO2-INIT&3000#4> ! <RCVKG2-INIT8&77772)>> 
.SBTTL RCVKO--PROCESS ODD CHARACTER 
IBU ;I1S AN NPR GCING 


SP , 
ACCT CE CTT use NPR! SPO> 
BRO RKb6 SIF SO, REITERATE ODD AND EXIT 
MICPC=MICPC+1 


< JUMP! BROCON! <RKG6-INIT&3000#4> ! <RK&6-INIT8777/2>> 
STATE RCVK a 

MICPC=MICPC+1 

(MOVE !WRTEBR! IMM! <RCVKE-INIT&77772>> 


SP 

ee ST LB! SP3> 

OUTPUT IBUS.RCVDAT! OUTDA2 OUTPUT A CHAR 

MICPC=MICPC+i 

<MOVE ! WROUT ! IBUS! <RCVDAT! OUTDA2> > 
TE IMM.21 


BRWR 
RIGPCEMICPENT a, 
OUT BR, <AORB! ONPR> :WRITE NPR REGISTER 
BY CPCeM IEPA St 

anaes. TOL. 'BR! <AORB! ONPR> > 


AYS 
MICPC=MICPC+1 
< JUMP! ALCOND! < IDLE-INIT&3000#4>! <IDLE-INITS7772>> 


;SET STATE 


;SET OUT NPR (C1) AND NPR REQ 


PAGE: 
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DMC11 DDOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-36 PAGE: 0194 
DOCHGH . MAC 21-APR-77 10:16 RCVKE--HANDLE EVEN BYTES 


on VEN BYTES 

{Bd6 017774 RCVKE: aRBAtE tus « npHMOLE ' ;READ NPR CONTROL REGISTER 
ih) 17774 ert MOVE !WRTEBR 1 TBUS! <NPR> > 

< MW < > 
1 17776 BRY BEER: ;IF RECV NPR--BRANCH 
(1) 000626 MICPC=MICPC+1 
(1) 017776 107251 < JUMP! BRYCON! (RKY-INIT&3000#4> ! <RKY-INIT877772)> 
1104 d20000 RKS: SP 1BUS IOBA1 , SPO ;READ LOW BYTE OF BA TO SP 
(1) 000627 MICPC=MICPC+ 
(1) o29000 023140 «MOVE! SPX! IBUS! IOBAL! SPO> 
1195 o20002 he QUTPUT OP. < <INCA! OBAL> ;WRITE INCREMENTED BA - 
(1) o20002 heats micresnrceet bP! INCA!OBALD» 
1106 O20004 RKSO: SP BR, DECA, SPY ;DECREMENT CHARACTER COUNT 
(1) 000631 MICPC=MICPC+1 
(1) O20004 063164 «MOVE! SPX! BR! DECA! SP4> 
1107 O20006 C 10$ ;NO OVERFLOW 
(1) 000632 MICPC=MICPC+1 
(1) O20006 105235 « JUMP! CCOND! < 1O$-INIT&3000#4> ! < 10$-INIT&77772>> 
1108 020010 SP DECA, SPS ; OVERFLOW - DECREMENT HIGH BYTE 
(1) 000633 MICPC=MICPC+1 
(1) 020010 063165 <HOVE! SPA" BR OECASPS> 
1109 020012 i ; ;BYTE COUNT ZERO 
(1) oeoo12 rire NSS tin > mrrsomne  <RL3-INIT8777/2> > 
1110 020014 10$: | OUTPUT IBUS, <RCVDAT!OUTDAI> READ CHARACTER AND WRITE IT 
(1) 000635 NICPC= pce 
(1) 020014 O22e02 Rout BUS! <RCVDAT! OUTDAI>> 
1111 O20016 SP IBUS, IOBA1 , SPO ;READ INCREMENTED BA 
(1) 000636 MICPC=MICPC+ 
(1) 020016 023140 MOVE 1SPX2 IBUS# IQBAL # SPO) 
llle o20020 OUTPUT DP CINCR '0BA1> ;WRITE INCREMENTED 8A 
(1) 000637 MICPC=MIC 
(1) 020020 O62066 HOVE! ROUT! DP? < INCA! OBAL> > 
1113 de0022 C IcBRee :IF CARRY INC BA HIGH 
(1) 000640 MICPC=MICPC+1 
(1) oO20022 115035 < JUMP! CCOND#< 1CBAB2-INIT&3O00# ! <ICBA22-INIT8777/2) > 
1114 20024 RK3: SP DECA, SP4 ;DECREMENT THE COUNT OF BYTES 
(1) 000641 nicPcenTcPtst 
(1) 020024 063164 CHOVE? SPX! BR! DECA! SP4> 
1115 020026 C RK :NO OVERFLOW 
(1) 000642 MICPC=MICPC+1 
(1) 020026 105245 < JUMP! CCOND! <RK6-INIT&3000#4> ! <RKG-INIT8777/2>> 
1116 020030 SP BR, DECA, SPS :DECREMENT HIGH BYTE OF COUNT 
(1) 000643 MICPC=MICP pt+1 
(1) 020030 063165 ROVE! SPX: BR! DECA! SPS) 
1117 020032 "0 ;BYTE COUNT ZERO 
(1) 000644 F cPCaNIChC+! 
(1) 020032 111772 < JUMP! ZCOND! <RL4-INIT&3000#4> ! <RLY-INIT8&777/2> > 
1119 020034 RK6:  BRWRTE IBUS,RCVCON ;READ RECEIVER CONTROL REGISTER 
(1) 000645 MICPC=MICPC+ 
(1} 020034 020640 <MOVE !HRTEBR? TBUS! <RCVCON> 
1120 020036 BRY RCVKO ;IF ANOTHER CHARACTER--PROCESS 
(1) O00646 MICPC=MICPC+1 
(1) 020036 107215 < JUMP! BRYCON! <RCVKO-INIT&3000%4> ! <RCVKO-INIT877772>> 
1121 o20040 RKEE: STATE RCVKO 


N15 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-37 PAGE: 0195 
DOCHGH.MAC  21-APR-77 J9: ib RCVKE--HANDLE EVEN BYTES 

(]) DONS 4 M =MICPC+ 

{t} ge0o4o BBG Te SAGE? TAGE EAT rms <RCVKO-INIT8777/2> > 

1122 o20042 ALUAYS REXIT 

iD) penne opp ees Cr: ALEORD! «REXIT- ~INIT&3000#4> ! <REXIT-INIT8777/2>> 

lle3 q RK4Y: 

(i Mi POEBe ME eascent <IDLE- INI T&3000#4> ! < IDLE- -INIT 777/2)> 

ida BSeo4e Seema Teno NPR --PROCESS 

(1) o006S2 MICPC=MICPC+1 

Ate 020046 104627 < JUMP! PLCOND ! <RKS-INIT&83000%4> ! <RKS-INIT&77772>> 

139 020050 RKEL:  §P IBUS, NPR, SPO ;READ NPR REGISTER 

(1) 000653 RICPC=NICPCe | 

(1) o200S0 123200 «MOVE! SPX! IBUS! NPR! SPO> 

1133 o20052 BRO IDLE :NPR STILL IN PROGRESS 

(1) ~ 00654 MICPC=MICPC 

(1) O200S¢ 102051 J (JUMP! BROCON!cTOLE- ~INIT83000%4) ! « IDLE~INIT877772) > 

11a 020054 BRURTE ip ;MASK FOR ALL BUT CO 

oe = 

(t} oeoosy Boose? fie HS Blame azo 

1136 O20056 BR, <AANDB! ONP ;TURN OFF ALL BUT CO 

(1) 000656 nigpcstrertel 

(1) 020056 061270 X! BR! <AANDB! ONPR> > 

1137 20060 ALWAYS RKSO 

(1) 000657 NICPC=NI 

(1) 020060 104631 < JUMP ONO? cRKSO- INITBIQ04 2 <RKSOMINITS777/2> > 

1138 , aEAEEEESDSERESESSEND OF TIME CRITICAL PATHEHHXHHHALHERLHRELEALLEAALE AEE LEE ELLE 

1140 O20062 RCVKEO: SP IBUS, RCVDAT, SPO ;READ CHARACTER AND SAVE IN SPO 

(1) 000660 MICPC=MICPC+] 

(1) 020062 623200 <MOVE ! SPX! IBUS! RCVDAT! SPO> 

1141 020064 OUTPUT BR, <SELA!OUTDAI> ;SEND NONSENSE CHARACTER 

(1) 00066: NICPC=MICPC+ 1 

(1) O20084 Ob2202 (MOVE ! WROUT! BR! <SELA! OUTDAL> > 

1142 020066 BRWRTE BR,SELA!SP1 ;READ STATUS BYTE 

(1) 000662 MICPC=NICPC#I 

(1) 020086 O60601 MOVE! WATEBR! BR! <SELA!SP1>> 

1143 020070 BR? PASWRD :MAINT MODE - SEE IF RLD MESSAGE 

(1) 000663 NICPC=MICP C+1 

(1) 020070 117576 < JUMP RLBR7CON! (PRSMRO-INITS3000%4 <PASWRD-INIT8777/2> > 

1144 020072 ALWAYS RK3 ;OTHERWISE PROCESS NORMALLY 

(1) 000664 MICPC=nIC PC+1 

(1) o20072 104641 < JUMP! ALCOND! <RK3-INIT&3000#4> ! <RK3-INIT877772> > 


on 


& 


ee a ee ed 
oe 


a 


oe 


Bib 
DOOM PROTOCOL IMPLEMENTATION  MACYI1_2O(OMG) 11-JUL-77_ 12:25 PAGE 6-38 PAGE: 21% 


. SBTTL Ie Revoat UNNUMBERED MESSAGE TYPE 

4 020074 5 RCVI: SP = RCVDAT , SP13 ;STORE UNNUMBERED TYPE 
) Q20074 023213 CHOVE! rar BUS! RCVDAT! SP13> 

020076 STA TE  RCVJ ;NEXT STATE IS J 
) OOO666 MICPC=MICPC+1 
) Qe 000670 CHOVE LURTEBR! TPM! RCV -INIT877772)> 
$ 020100 ALWAYS REXIT 
} 00G867 MICPC=MICPC+1 
2 920190 100459 «JUMP! ALCON! <REXIT=INITS2000#4 # (REXIT-INIT8777/2) > 


2 ek el 


C16 


ONC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J11-JUL-77 12:25 PAGE 6-39 PAGE: 
DOCHGH.MAC  21-APR-77 10:16 RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 

1152 .SBTTL RCVJ--ROUTINE TO HANDLE SUBTYPE FIELD,SELECT AND FINAL 

1153 920102 RCVI: 

1158 020102 SP IBUS, RCVDAT, SPS GET CHARACTER 

(1) 000670 MICPC=MICPC+1 

(1) o20102 623205 <MOVE! SPX! TBUS'RCVDAT! SPS> 

1159 20104 BRWRTE IMM. 200 :CONDITIONALLY SET BIT 

(1) 000671 NICPC=MICECH 

(1) 020104 00 (MOVE! WRTEBR! IMM! < 200) > 

1160 020106 BRWRTE 

(1) 000672 MICPC=MI 

(1) O20108 O69665 UES VETHATEBR? BR! <AANDB! SPS) > 

1161 020110 SP BR, AORB, SP10 

(1) 000673 MICPC=MICPC+1 

(1) 920119 063310 SAS VET SPX? BRE AORB! SP 10> : 

1163 020112 STATE RCVR sNEXT STATE IS N 

(1) 000674 MICPC=MICPC+1 

(1) 920112 600676 (MOVE! WRTEBR! IMM! <RCVR-INIT877772> > 

1164 20114 ALWAYS REXIT 

(1) 0675 MICPC=MICPC+1 


oo 
020124 100450 < JUMP! ALEOND! <REXIT-INIT8300084 ! CREXIT<INITS777 72> > 


0197 


LOR RAPIER GRUB Mell re, 


1166 .SBTTL__RCVR--UNNUMBERED MESSAGE RESPONSE FIELD 
116? ‘ENTERED FROM IDLE LOOP 

1163 020116 RcVR: BRWRTE _IMM,3 ;REP MESSAGE TYPE TO BR 

(1) 000676 MICPC=MICPC41 

(1) 020116 000403 (MOVE! WRTEBR! IMM! <3>> 

1170 020120 NOP _ BR. SUB, ;1S TYPE ACK OR NAK 

(1) 000677 MICPC=MICPC+1 

(1) 020120 060353 <BR! SUB! SP13> 

1171 d20122 STATE _RCVQ :NEXT STATE IS RCVG 

(1) 000700 MICPC=MICPC+1 

1) 20122 000793 MOVE ! WRTEBR! IMM! «RCVQ-INIT8777/2) > 

1172 ##NOTE THIS INSTR DOES NOT CLOCK “C™ 
1173 020124 C RCV | STF NOT IGNORE 

(1) 900701 MICPC=MICPC+1 

(1) 920124 105131 <JUMP 2 CCOND! “RCV 1-INIT&3000#4 # REV 1-INIT8777/2)> 

1174 020126 ALWAYS RD2 ;D0 RANGE CHECKS 

(1) occ7o2 MICPC=MICPC+1 

(1) O20126 104473 < JUMP! ALCOND! «RD2-INIT$3000#4> ! <RO2-INIT8777/2) > 


oh oO oO be Be 
"> ~ 
~~ WD -. 


7 
se 


020130 


020130 
020132 

~ 9g0g704 
o20132 104631 


000703 
000SeS 


E16 


MACY11 30( 1046) ide JUL-77 Ss erse 6-41 
RCVQ--UNNUMBERED SSAGE—-NUNBER FIE 


RCVO: 


.SBTTL RCVQ--UNNUMBERED MESSAGE--NUMBER FIELD 
-ENTER FROM IDLE 
STATE RCVF ;NEXT STATE IS ADDRESS 
MICPC=MICPC+1 

<MOVE 2 WRTEBR? IMM! «RCVF - INIT8777/2>> 


ALWAYS 
MICPC=MICPC+1 
ines TALCOND! <RCVF1- INITS30CO#4> § «ROVE 1-INIT877772> > 


PAGE: 
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1 -y PROTOCOL IMPLEMENTATION MACY11 30(10%6) il-JUL-77 12:25 PAGE 6-42 PAGE: 0200 


DOCHGH. 21-APR-77 10:16 RCVL--PROCESS CRC3 
11 RCVL--PROCESS CRC3 
1186 Pate D ERO TEC oor 
1184 020134 <a RCVL: re one :READ NPR CONTROL 
(1) o201 ee hs Nae loi NPR! SPO> 
1185 201 :RCV NPR BRANCH 
(1) 000706 aTcPCs sce 
(1) 020136 107314 <« JUMP! BRYCON! <RL1-INIT&3000#4> ! <RL1-INIT8777/2> > 
1191 20140 RL2:  BRWRTE IMM, 176 - MASK 10 TURN OFF CO 
(1) 000707 MICPC=MICPC41 
(1) 020140 000576 (MOVE SMRTEBR! IMM! (176) 
1192 20142 OUT 1 ONPR 
(1) 000719 MICPC=MICPC+1 
iB 020142 061270 CMOVE? HROUTXEBR! (AANDB! ONPR> > 
1194 O20144 RL3: hop IBUS, RCVDAT,O : INPUT CHARACTER AND DISCARD 
(1) 900711 MICPC=MICPC+ 
(1) 020144 de20e00 IBUS!RCVOAT!0> 
us —" o71e2 M Peoh 
(1) o20146 Spat 716 niGee UPd sore mnrsr7-2 
1196 Oe0150 ALWAYS REXI 
(1) 000713 MICPC=MIC BCt 
iB g201S0 190450 CSUMP? ALCON! <REXIT- INIT83000%4> ! <REXIT-INIT8777 2) > 
oe a 
1198 020152 ru1: BRO IDLE ;NPR GOING --GET OUT 
(1) 000714 MICPC=MICPC+1 
(1) ge01se 102081 < JUMP! BROCON! < IDLE- INITS3000#4> ! < IDLE-INIT8777/2> > 
1200 320154 ALWAYS RL2 
C1) 900715 MICPCSMICPC+1 
(1) 020154 104707 SUMP IALCOND! (RL2-INITS3000#4> !<RL2-INIT3777/2> > 


fo. 


G16 


preci DDCMP PROTOCOL IMPLEMENTATION MACY11 30(104%6) L1-JUL-77 12:25 PAGE 6-43 PAGE: 
DCHGH.MAC  21-APR-77 [0:16 RCVM--PROCESS CRC4--END OF DATA MESSAGE 
1204 SBTTL RCVM--PROCESS CRC4--END OF DATA MESSAGE 
1205 SP TERE’ FROM I ; 
1208 RC CORRECT -- GUEUE INTERUPT AND UPDATE RESPONSE 
1208 STF CRC WRONG SEND NAK 
1209 020156 RCVM:  BRWRTE IBUS, UBUR :READ UNIBUS BR REGISTER 
1) 000716 MICPC=MICPCs +1 
(1) O201S6 120620 MOVE! WRTEBR! IBUS! <UBBR> > 
1210 020160 BRO NXMERR :NON-EXISTANT MEMORY 
(1) 000717 MICPC=MICPC+1 
(1) 020160 106381 C JUMP! BROCON! <NXMERR-INIT83000%4) ! <NXMERR=INIT8777/2> > 
1211 020162 SP IBUS, RCVDAT, SPO :READ CRC CHARACTER 
(1) Oe01g2 been HOVE? SPX? f als: cvonr! seo 
1212 020164 SPURTE TBE URCNEO :READ RECEIVER CONTROL REGISTER 
(1) 000721 BT CPCENTEPCS 
(1) 020164 920640 (MOVE! WRTEBR! IBUS! <RCVCON> > 
1213 O20166 BRO RCVM sIF CRC GOOD -- PROCESS 
(1) 000722 MICPC=M 1ePCe 1 
(1) 020166 116214 <JUNP? BROCON! «RCV - INIT&3000#4> ! <RCVMI-INIT8777/2)> 
1214 020170 BRWRTE BR SELA SP] sREAD STATUS BYTE 
(1) 000723 MICPC=MIC 
(1) 020170 O60601 CHOVE! WRTEBR! BR! <SELA!SP1)> 
1215 020172 BR? RHX :CRC ERROR IN BOOT MODE - FLUSH 
(1) 000724 MICPC=MICPC+1 
(1) 020172 107740 < JUMP! BR7CON! <RHX-INIT&3000#4> ! <RHX-INIT8777/2>> 
1216 020174 LOMA SsdIMM, T sELSE SEND NAK --DATA ERROR 
(1) 000725 MICPC=MICPC41 
(1) O20174 O1015: «MOVE! LDMAR! IMM! <18377>> 
1217 020176 MEMINC IMM 2 :NAK TYPE 
(1) 000726 MICPC=MICECH 
(1) 020176 O164d2 MOVE ! WRMEM! INCMAR! IMM! <2>> 
1218 920200 MEM INC IMM. 302 :DATA ERROR SUBTYPE 
(1) 000727 MICPC=MICP pcs] 
(1) Oz20200 016702 (MOVE ! WRMEM! INCMAR! IMM! <302>> 
1219 de0e0e2 LDMA IMM NDATS 
C1) 900730 MICPC=MICPC#1 
(1) O2oe02 O10014 SHOVE ?L DMAR? IMM? <NDATS8377> > 
1229 020204 ALWAYS RHS :SEND NAK 
(1) 000731 MICPCOMTCPG +: 
ay o20204 104552 < JUMP! ALCOND! <RHS-INITS$3000%#4> !<RHS-INIT8777/2) > 
1222 20206 RCVMO: LOMA IMM, <<RTHRS+3>> :POINT TO ERROR WORD 
C1) 000732 MICPC=MICPC41 
(1) O20206 010177 (MOVE! LDMAR! IMM! <<RTHRS+3>8377>> P. 
1223 020210 BRWRTE IMM. 10 :MAINT MESSAGE ERROR 
1) 000723 MICPC=MICPC41 
(1) 020210 900418 <MOVE ! WRTEBR! IMM < 10> > 
1224 20212 ALWAYS RCEXY :GIVE FATAL ERROR 
ae 000734 MICPC=MICPC+1 
(1) Qese12 114522 < JUMP! ALCOND! <RCEXY-INITS3CQO0#4> ! <RCEXY-INITS777- 2) 


DOMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE 6-44 PAGE: O202 
DOCHGH. MAC 21-APR-77 10:16 EM2--PROCESS RLO MESSAGE 


ise? Phen fia f iW ° MESSAGE 
‘ ; 
1358 ITF RL ook we TRIGGER THE BOOT ROM 
1230 020214 te EM2: casey 1BUS RCVDAT sREAD THE CHAR 
é 
(1) 020214 O206 ROVE ATEBR! russ RevoaT> 
1231 020216 :IS IT A MATCH 
(1) 0007 nIce =M ey ee 
(1) 020216 06037 <SUBTC! BR! SP13> 
1232 O20220 2 EM3 
C1) 000737 MICPC=MICPC+1 
Age 020220 105746 «JUMP! ZCOND! (EM3-INIT83000#4> ! <EM3- 3INIT8777/2)) 
1234 O20222 RHX:  BRWRTE BR,AAISP! ‘READ STATUS BYTE SHIFTED LEFT 
(1) 006746 MICPC=MICPC+1 
(1) O20222 960521 «MOVE! URTEBR! BR! <AA!SPL> 
1235 O20224 BRY 10$ :DLE RECEIVED IN NORMAL MODE 
iD) a “JUNE RACON? LOS-INIT&3000#4> ! < 10$-INIT8777/2>> 
4 « - #4) EC - 
1346 ASBSSE ALWAYS FLUSH ve READY IN MAINT MODE 
(1) 000742 MICPC=MIC best 
(1) Ov0226 1044:5 (JUMP ALEQNO!<FLUSH-INITS20008%» (ELUSH-INIT877 7/2)) 
1237 020230 10$:  BRWRTE IMM. 163 MASK TO CLEAR ALL MAINT RELATED SIT 
(1) 000743 MICPC=MICPC41 
(1) Oe0230 000563 (MOVE! WRTEBR! IMM! <163>> 
1238 020232 SP BR, AANDB, SP1 :CLEAR THEM 
(1) 000744 RICPCNICER+ 1 
(1) 020232 063261! SHOVE? SPX! BR! AANDB! SPI > 
1239 020234 ALWAYS FLUSH 
(1) 000745 MICPC=MICPC+1 
ie o20234 104415 < JUMP! ALCOND! <FLUSH-INIT83000#4> ! <FLUSH-INIT8777/2> > 
i241 020236 EM3: SP BR, DECA, SP4 :DECREMENT CHARACTER COUNT BY ONE 
(1) 000746 MICPC=MICPC+1 
(1) 020236 063164 «MOVE! SPX! BR! ECA! SP4> 
le42 920240 2 EMTRIG : TRIGGER AC LOW 
C1) 000747 MICPC=MICPC+1 
(1) o2o240 115712 JUMP 1ZCOND! <ENTRIG-INITB3O00%4> EMTRIG-INIT8777/2>> 
1243 20242 ALWAYS IDLE 
(1) 999750 MICPCEM ICPC+1 
(1) Oeoe42 109451 < JUMP" ALCOND! < IDLE-INIT8$3000%#4> !< IDLE-INIT87772>> 


I16 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 6-45 PAGE: 0202 
DDCHGH.MAC = 21-APR-77 10:16 NXMERR ---NON EXISTANT MEMORY HANDLER 
1246 .SBTTL NXMERR ---NON EXISTANT MEMORY HANOLER 
1247 o20244 NXMERR: (ona IMM, < (RTHRS#3) > “ADDRESS ERROR LINK 
(1) g097si MICPC=H MICP Pch1 
(1) o202e44 0101 (MOVE !L. LOMAR! Tht « «RTHRS+3) 8377) 
1248 Od20e46 MEMINC 
(1) co007S52 RICPC=MICECH 
(1) O2024%% 016401 «MOVE! WRMEM! INCMAR! IMM! <1>> 
1249 020250 MEM IMM. 0 :NXM ERROR BIT 
(1) 000753 MICPC=MICPC41 
(1) O20e50 o92400 (MOVE! WRMEM! IMM! <Q>> 
1250 020252 SP Men SELB, SP10 :CLEAR STATUS 
C1) 900754 RICPC=MI CPC+ 
(1) O20252 043230 <MOVE 2SPX}NENX! SELB! SP1O> 
1251 20254 ALWAYS RCEXX 
(1) 900755 MICPC=MICPC+1 
(i) peoes4 114534 CTUMP!AL EON! <RCEXX-INIT$3000#4> ' <RCEXX-INIT8777/2>> 


DMC11 ODCMP PROTOCOL IMPLEMENTATION 
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020256 


12 


020312 
020314 


as 14 

16 
020316 
Se0320 
020320 


21-APR-77 10:16 


000756 
060601 
000757 
103742 
000760 
000610 
000761 


063301 


000762 
100742 


000763 
000404 


068080 


000765 
110601 


000766 
000404 
000767 
123220 


000770 
061011 


000771 
114761 


00077 
Boovae 
000773 


114663 


000774 
o00c00 


000008 
000776 
000000 


000777 
900000 


MACY11 30(1046) 1L1-JUL-77 12:25 PAGE 6-46 PAGE : 


NXMERR ---NON EXISTANT MEMORY HANDLER 


BOOT: 


RESEXT: 


TABMXT: 


ATHRES: 


PRHBIE,, PBASELA! SP ;SEE IF IN MAINT. MODE 


(MOVE !WRTEBR! BR! <SELA!SP1>> 
BRZ RR ;BRANCH IF SO AND TREAT DLE LIKE NUM. MSS. 
CPC=MICPU+1 


JUMP! BRZCON! <RAG-INITB300084) ! RmasK TO SET Al 


BRWRTE Aan MASK TO SET MAINT MODE AND DLE RECY’D 
MICPC=MICPCt 

sp eR RORS SPL 

SP ;SET THE BITS 

Ricecenyert "1 

«MOVE ! SPX! taona:se1> 


; TREAT LIKE NUMBERED MESSAGE 
shasta teres 


UMP! ALCOND! <RA3-INIT&3000#4> ! <RAZ-INIT8&77772> > 
Cpa TE ian 4 ;ADD TO MXT BITS 
MICPC=MICPC41 
«MOVE! WRTEBR! IMM! <4>> 


RICPCAMIRPCTT 
Pre EST cooespo> 
ALWAYS TH3X 
MICPC=MICPC+1 
«JUMP! AL OND} «TH3X- -INIT83000#4> ! < TH3X-INIT8777/2> > 
BRWRTE : INCREMENT MXT 
BICPCEMICPCH 
<MOVE ! WRTEBR! IMM! <4) > 
SP IBUS, UBBR, SPO :READ BR CONTROL 
MICPC=MICPC+1 
«MOVE! SPX! IBUS! UBBR! SPO> 
OUT BR, ADD! OBR 


MICPC=MICPC+1 

<MOVE SHROUTX? BR! «ADD! OBR? » 

MICPC=MICPC+1 

< JUMP! ALCOND! <ECX-INIT&3000%4> ! <ECX-INIT8777/2> > 


BRUATE, IMM 2 
Ricec=MrCPc 
<MOVE TEBE re > 
ALWAYS 
NICPC=H 1ePC+1 ae 
MP! AL COND! <ERRXX-INIT83000#4 ! « ERRXX- INITS7; 


MICPC=MICPC+1 
000000 
NICPC MICPC+1 
90060 
$ZERO 
MICPC=MICPC+1 
000000 


$ZERO 
MICPC=MICPC+1 
000000 


0204 


DMC11 DOCMP PROTOCOL IMPLEMENTATION 
2i-APR-77 10:16 


DOCHGH . MAC 


igs 
1 
1 


020322 


020322 
020324 


020324 
020326 


020326 


bare? 


001009 
020620 


00100! 
173202 


001002 
190454 


meek 30(1046) l1l-JUL-77 12:25 PAGE 6-47 PAGE : 


K16 


NXMERR ---NON EXISTANT MEMORY HANDLER 


TMTDA: 


NI T+2090 
MICPC=7 
nig TMTDA--TRANSMITTER DISPATCH ROUTINE 


BRURTE 1 EBUS THTCON ;READ TRANMITTER CONTROL REGISTER 
(MOVE! WRTEBR! IBUS! < TMTCON> > 

.BR4Y —_ DP. SELA, <2! PAGE2> :IF READY PROCEED 

MICPC=MICPC+41 

JUMP BRYCON! DP! SELA!2! PAGE) 


‘A ;ELSE IDLE 
MICPC=MICPC+1 
< JUMP! ALCOND! < T1-INITS3000#4> !<I1-INIT877772>> 


0205 


pre oo PROT Oe re SORE iS eat P eC rae rm tee PAGE 6-48 PAGE: O206 


1301 .SBTTL TMTA--FIRST CHARACTER OF HEADER 
1 TTA: ’ 

1 BS8335 BRURTE R SELA! SPIO ;REREAD STATUS 

(1) 001003 MICPC=MICPC+ 

(1) 020330 060610 <HOVE! WATEBR! BR! ¢SELA! SP10> 

1310 NUMSYN IF UNNUMBPENDING -- SEND IT 
(1) 001004 ‘ ores 

(1) 020332 112007 SN? CNUMSYN- -INIT&300044> ! <NUMSYN-INIT&777/2> > 

1311 020334 

3 pepagy SHOE MeeTGt ances 

1312 eres :IF START MODE--EXIT 
(1) 001006 nes 

(1 <T NIT83000*4> ! < IDLEO-INIT8777/2>> 

14t8 AS a38 nepen NUMSYN: aK, cipkess i “READ LINE STATUS WORD 
(q) 020 BeOe TO NICPC=HICPCs BRIBR! <SELA!SP10>> 

1319 BSpaue BR? os. : IF OK TO SEND--PROCEED 
(1) 001010 MICPC=MICPC+1 

(1) oO20342 113412 < JUMP! BR7CON! <S$-INIT&3000#4> ! <S$-INIT8777/2>> 

1320 920344 ALWAYS I1 :ELSE--IDLE 

(1) 001011 MICPC=MICPC+1 

(1) 020344 100454 MTOM? AL COND! < I1- -INIT&3000#4> ! Me INIT8777/2>> 

1321 020346 S$: BRWRTE IBUS, MODEM ARE WE STILL SENDING? 

(1) 001012 MICPC=MICPC+1 

(1) 02034 O20660 <MOVE! WRTEBR! IBUS! <MODEM > 

i322 020350 BRSHFT 

(1) 001013 MICPC=MICPC+1 

(1) 020350 001620 <NOVE! SHF TBR! WRTEBR! SELB? 

1323 020352 BRY Il :RTS SET? IF SO WE ARE--STALL 
(1) 001014 MICPC=MICPC+1 

(1) o203S2 103054 < JUMP! BRYCON! <I1-INIT&3000%#4> ! Ue -INIT877772>> 

1324 020354 BRWRTE IMM, 373 MASK TO TURN OFFLINE IDLE 
(1) 001015 nicpesice pch] 

(1) 020354 000773 VET WRTEDRE IMM! (373) > 

1325 356 spo BR, AANDB, SP10 ;IN LINE STATUS WORD 

(1) 001016 MICPC=H =MICPC+1 

(1) 356 063270 HOVE ! SPX?BR# AANDB! SP1O> 

1326 020360 TSTAT TMTA 

(1) 001017 MICPC=MICPC+ { 

(1) 020360 o00424 (MOVE! WRTEBR! IMM! < TMTAL-INIT8777 72> > 

(1) 001020 MICPC=MICPC+1 

(1) 020362 063222 «MOVE ! SPX! BR! SELB! SP2> 

1327 020364 BRWRTE IMM, le 

(1) 001021 MICPC=MICPC41 

(1) 020364 o004i2 cove anos ptt cg2)? 

1328 020366 SP ;STORE IN SP6 

(1) 001022 ArcPcenTCP Base 

(1) 063226 <MOVE ! SPX 9 

1329 020370 ALWAYS Il ;BACK TO IDLE LOOP 
(1) 001023 MICPC=MICPC+1 

(1) 020370 100454 < JUMP! ALCOND! <I 1-INIT&3000%*4> ! <I1-INIT&777/2>> 

1330 020372 TMTAL: SP BR, DECA, SP6 ;DECREMENT SYN COUNT 
(1) 001024 MICPC=MICPC+1 

(1) 020372 O63166 <MOVE ! SPX! BR! DECA! SP&> 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J1-JUL-77 12:25 PAGE 6-49 PAGE: 0207 


DDCHGH.MAC  21-APR-77 10:16 TMTA--FIRST CHARACTER OF HEADER 
1331 020374 2 TMTEXT 
(1) 001025 MICPC=MICPC+1 
(1) 020374 111432 «JUMP ¢ZCOND! <THTEXT= INITB3O0084 t <TMTEXT-INIT8777/2) > 
1332 020376 nlcpes in <1!0TM ;WRITE SOM TO TMTR CONTRL 
(1) 001026 MICPC=MICPCS 
(1) 020376 002011 MOVE ! WROUT! IMM! <1!0TMTCO>> 
1333 020400 BRURTE IMM, 226 ;SYNC CHAR 
(1) 001027 MICPC=MICPC41 
(1) O20400 000626 (MOVE! WRTEBR! IMM! <226) > 
1334 d20402 OUTPUT BR. <SELB! TMTDAT> ;SEND THE CHARACTER 
(1) 001030 NICPC=HIC cpt+1 
(1) O20402 062230 MOVE? HROUT?BR! <SELB! THTDAT> 
1335 O20404 ALWAYS I} 
(1) 001031 MICPC=H ICPC+1 
(1) o20404 100454 JUMP LAL COND! <T1 -INIT&3000#4> !<I1- IndT8777/22 
1337 Oe0406 TMTEXT: BRWRTE BR, <SELA!SP10> NNUMB MESSGE? 
(1) 001032 MICPC=MICPC+1 
(1) O20408 060610 (MOVE! WRTEBR! BR! <SELA!SP10>> 
1338 020410 rie TMT UN IF SO --BRANCH 
(1) 001033 MICPC=MICPC+ 
(1) 020410 112043 JU BROCON! <TMTUN-INIT83000#4> ! < TMTUN-INIT877772>> 
1339 O204i2 TSTATE MTB 
(1) 001034 MICPC=MI Opes 
(1) O20412 O00451 «MOVE! WR EBRt IMM! <THTB- INIT&77772>> 
(1) 001035 MICPC=MICPC+i 
(1) 020414 063222 <HOVE!SPA:BR! SELB: SP2 
1340 020416 BRWRTE SELA!SP1 ;ARE WE IN BOOT MODE 
(1) 001036 MICPC=M MIBeesT 
(1) 020416 O60601 CHOVETURTEGREBR! (SELA!SP1) 
1341 d20420 BR? MTBT :IF SO SEND DOLE 
(1) 001037 NICeC rian 
(1) o20420 113447 <TMTBT-INIT&3000%4> ! < TMTBT-INIT8777/2> > 
1342 O20422 BRWRTE M20 1 ELSE STORE SOH 
(1) 001040 NICPC= ncrch 
(1) o20422 O00601 EBR tIMM? <201>> 
1343 d20424 TMTAS: OUTPUT BR <SELB!THTOAT> :IN TMT SILO 
(1) 001041 MICPC=MICP 
(1) O20424 062230 SHOVE UROUT OR! <SELB! THTDAT) > 
1344 O20426 ALWAYS i 
(1) 001042 MICPC=MICPC 
(1) oO20426 100454 TOME TAL CONO! <I 1- ~INIT&3000#4> ! <I1-INIT&777/2>> 
1345 020430 TMTUN: TSTATE TMTI 
(1) 001043 MICPC=MICPC+1 
(1) 020430 0006 10 <MOVE ! WRTEBR# IMM! < THT - INIT8?777/2>> 
(1) 020432 pp433 MSE OPX I BRt SELB! SP2> 
1346 020434 = BRURTE Inn :ENQ TO BR 
(1) 620434 urate OHSVE? MRTESR! rem <5)» 
1347 Ge0436 ALWAYS TMTAS 
(1) 001046 Rr OPCONICe PC 1 
(1) 020436 110441 <JUMP!AL COND! < TMTAS-INITS3000#4> # < THTAS=INIT8777/2>> 
1348 (20440 TMTBT: BRWRTE IMM, 220 ‘WRITE A DLE TO BR 
(1) 001047 MICPC=MICPC41 
(1) oO20440 O00620 (MOVE! WRTEBR! IMM! <220) > 
12439 O20442 ALWAYS TMTAS :SEND IT 
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1l- oe? 12:25 PAGE &-S0 


HARACTER OF HEADER 
=MICPC41 
'ALC 


OND! < TMTAS- INI T83000#4> $< TMTAS-INIT8777/2>> 


Se = os 0. ome ~~ — -=— - a 
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001063 
063260 
901064 
003306 
901965 
OS4666 
OO 1066 
042230 
001067 
001620 
001970 


001620 


001071 
001620 


001972 


~, 


MACY11 30(1046) J1-JUL-77 le: ¢ PAGE 9 
TMTB--OUTPUT FIRST CHAR OF COUN 


TMTB: 


TBO: 


.SBTTL TMTB--OUTPUT FIRST CHAR OF COUNT 


(pmA _ BR. SELA!SP16 
MICPC=MICPC+1 
<aOVE OMAR! BR! <SELA!SP16>> 


IMM m3 
Ree eee 


MEMINCG 6R,SELA!SPle2 
NICPC=NIC cPt+1 
TWRMEM Mt INCMAR! BR! <SELA!SP12>> 
STAT THTC 
MICPC=MICPC+1 
(MOVE !WRTEBR! IMM! <TMTC-INIT8777/2 > 


SP . 

MICPC=MICPC+1 

Mee OE SPX!BRISEL LB!SP2> 

OUTPUT <HENK? INCHAR , SELB! IBAl 
MICPC=MICPC+1 

<MOVE ! WROUT ! MEMX! INCMAR! <SELB! IBAL>> 
OUTPUT <MEMX! INCMAR> , SELB! IBAc 
MICPC=MICPC+1 

(MOVE ! WROUT! MEMX! INCMAR! «SELB! IBA2>> 
SP MEMX SELB, SP7 

MICPC=MICPC 

CHOVE ! SPX! MEMX! SELB! SP7> 


PAGE: 


;GETPOINTER TO NEXT TMT LINK 
;WRITE MSG TMTED TO FLAGS 
;PICK UP MSGNO 

;ADDRESS TMTR STATE 

;UPDATE IT 

;WRITELOWBYTEOF ADDRESS 
;WRITE HIGH BYTE OF ADDRESS 


;HIGH BYTE OF COUNT TO SP7 


;WAIT TO MASK OFF MEM EXT. BITS 


IBUS, NPR, SPO 
cpc+i 

<MOVE ! SPX! IBUS! NPR! SPO> 

BR IMM, 2 


pcs] 
CROVE URTEBRE mt! 220) 


SP 
MICPC=MICPC+1 
OVE SPCt6Ataenog Po 


se I 

MICPC=MICPC41 

TSC a00!SPE> 

BRWRTE MEMX! INCMAR, AANDB! SP6 


CPC+i 
COVE SHRTEBR? NEMX? INCHAR! <AANDB! SPB 
MEMX. SELB! TMTDAT 
SYCPCAMICe c+] 
ae 'MEMX! «SELB! TMTDAT> > 


BRS 

MICPC=MICPC 

"HOVE ! SH TBR! WRTEBR! SELB» 
RSHF T 


B 
MICPC=MICPC+1 
“Sanilac 


BRSHF 
MICPC=MICPC 
(HOVE! SHE TOR! WRTEBR! SELB» 


BRSHF T 
MICPC=MICPC+1 


;MASK FOR MXT 
; TURN OFF CC2 


;ALSO WRITE COUNT TO TMTR SILO 


;SHIFT BITS INTS CORRECT POSITION 


0209 


DOI 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30( 1046) L-JUL-77 12:25 PAGE 9-1 PAGE: 
DOCHGH.MAC  21-APR-77 10:16 TMTB--OUTPUT FIRST CHAR OF COUNT 

(1) 020506 001620 <MOVE! SHETBR! URTEBR? SELB) 

1394 020510 OUT BR. AORB! ONPR 

(1) 001073 MICPC=MICPC+1 

(1) 020510 061310 Mee OE HAOUTX! BR! <AORB! ONPR) > 

1395 020512 SPER MEMX SELB, SP6 ;LOWBYTE OF COUNT TO SP 

(1) 001074 MICPC=MICPC+] 

(1) 020512 043626 (MOVE! SPBRX! MEMX! SELB! SP6> 

1400 920514 ALWAYS [1 

00107 MICPC=MICPC+1 


029514 1004S4 «JUMP? ALCOND! <I1-INIT83000#4> !< I1-INIT8777 72>» 


b. 

Loan 

nee 
uw~ 


C11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77. 12:25 PAGE 9-2 PAGE: O21: 
sate ne See ee 10:16 TMTC--OUTPUT SECOND CHAR OF COUNT 
1404 _SBTTL TMTC--OUTPUT SECOND CHAR OF COUNT 
1406 020516 TTC: BRWRTE IMM,77 sMASK TO CLEAR MXT BITS 
(1) 0010 NICPC=MICECH 
(1) 020516 0004 (MOVE! WRTEBR! IMM! <77>> 
1407 020520 SPBR BR a :CLEAR THEM 
1) 901077 nicpcenicre+l ain 
0636 é e e ° 
1408 aspess foxes BR Ti T) -WRITE TO TMT SILO 
a ees nicecenicrt | '<SELB! TMTDAT 
< H § ' »> 
1409 Was sponte ohn ae) :GET WRAPAROUND ADDRESS 
(1) 001101 MICPC=MICPC41 
(1) oO20S24 000543 (MOVE! WRTEBR! IMM! <TML&> > 
1410 020526 CMP SP16 ; WRAPRORUND 
(1) 001102 MICPC=MICPC+1 
(1) 020526 060376 <SUBTC! BR! SP16> 
1411 020530 2 10$ 
(1) 001102 MICPC=MICPC+1 
(1) 020530 111511 < JUMP! ZCOND! < 10$-INIT83000#4 ! < 10$-INIT8777/2>> 
i412 020532 BRWRTE IMM OFFSET TO NEXT LINK 
(1) 001104 MICPC=MICPC41 
(1) o20S32 o00406 (MOVE! WRTEBR! IMM! <6) > 
1413 020534 SP BR, ADD, SP :UPDATE THE POINTER 
(1) 001105 MICPC=MICPC+1 
(1) 020534 063016 (MOVE! SPX! BR! ADD! SP16> 
1414 020536 Ss: 
i420 TSTATE TMTD 
(1) 001106 MICPC=MICPC+1 
(1) 020536 000514 (MOVE !WRTEBR! IMM! <TMTD-INIT8777/2> > 
(1) | 001197 MICPC=MICPC+1 
(1} O20S40 063222 (MOVE! SPX! BR! SELB! SP2> 
1421 O20542 ALWAYS Il ;#*4#40CTOBER 29, 1976 
(1) 001110 MICPC=MICPC+1 
(1) oeos4e 100454 <JUMP* ALCOND! <I1-INIT8300084> ! <I1-INIT877772>> 
1423 020544 10$:  BRWRTE IMM, TML1 -GO BACK TO FIRST LINK 
(1) 901111 MICPC=MICPC41 
(1) o20S44 600471 (MOVE! WRTEBR! IMM! <TML1>> 
1424 20546 SP BR, SELB, SPI 
(1) 001112 MICPC=MICPC+1 
(1) 220546 06323€ (MOVE ! SPX! BR! SELB! SP16> 
1425 oe0550 ALWAYS S$ 
(1) 901113 MICPC=MICPS+1 Pea reds 
(1) G20ss0 110806 CTUMP!ALCOND! <S$-INITSZ00C#4) !<S$-INITS777-2>> 


OMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-3 PAGE: Cele 
ODCHGH . MAC 21-APR-77 10:16 TMTD--RESPONSE FIELD-NUMBERED MESSAGE 


4 L Tht =-RESPONSE FTELD-NUMBERED MESSAGE 
1458 020552 TMTD: agetl RIE 
(Tp nae RIGPe snares BR! IMM! <TMTE-INIT8777/2) > 
sie < 
14 Rs Rees = if Wy ape" :ADJUSRT COUNT FOR TWO'S COMPLEMENT 
(1) 001115 aTCPC=NTCPC +I 
14a SSpeee —_— ore eesacncetec” -NO OVERFLOW 
iH 001116 MICPC=MICPC+1 
(1) o205S6 111120 JUMP! CCONDS <TD2- ~INIT$3000#4> § < TD2-INIT$777/2> > 
1432 020560 A, SP7 sDECREMENT HIGH BYTE OF COUNT 
1) 001117 nes 
(1) 020560 063167 X!BR?DECA! SP?) 
1433 020562 oe TDe: LOMA at :RESP FIELD ADDR TO MAR 
\ = 
(1) 020562 BoaisS RESPoSnECPO os crspiisar7>» 
1434 20564 TD3: OUTPUT MEMX, SELB! TMTDAT :WRITE IT TO SILO 
fT} ge0sey ee30 MES VEIUROUT! {ner gece! THTDAT? 
1448 pepeee XEXIT2: SP esse 
(1) 001122 MICPC=MICPC+1 
(1) 020586 063222 (HOVE SPX" SR! SELB! SP2> 
1436 020570 ALWAYS Il 
(1) 01123 MICPC=MICPC+! 


0 
020879 100454 <JUMP!ALCOND! <T1-INITS3000#4> $< TL-INITS777 72>» 


sigue y [Oy [Oley [Oey To 
sew Ne we Bee We eo Mw 


11 DOCMP PROTOCOL IMPLEMENTATION 
CHGH. MAC 21 77 10:16 


020S7e2 
020572 
020572 
020S74 
020S74 
020576 
020576 
020600 


020600 
020602 


G2060e 
020604 


020604 


8 £8 58 no 


88 fF 


—-O 
—-O 


GO1 


MACY11 30(1046) Ji-JUL-77_ 12:25 PAGE 9-4 PAGE: 
TMTE--NUMBER FIELD--NUMBERED MESSAGE 


.SBTTL TMTE--NUMBER FIELD--NUMBERED MESSAGE 
IBUS a SPO ;READ NPR CONTROL REGISTER 


ne 
ESP at Leusi ven NPR! SPO> 
BRO ;BUSY - GET OUT 


ae 
PIS INI T&83000#4 $< IT1-INIT877772) > 
BRUR RTE BR 5 'SPie 

MICPC=MIC 

HOVE !HRTEBR! BR! <SELA!SP12)> 6 

i TeUT «SELB! TMTDAT> ;WRITE IT TO THE SILO 


1cPt+1 
VE! WROUT! BR! SELB! TMTDAT> > 
STATE TMTF 
MICPC=MICPC+1 

cMOVE LURTEBR! IMM! ¢THTF = INITS777 2) 

ALWAYS TH3 

MICPC=MICPC+1 ie 
«JUMP! AL COND! < TH3-INITS3O00#4> # < TH3-INIT8777/2> > 


DMC11 DDCMP PROTOCOL IMPLEIENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-5 PAGE: 0214 


DDCHGH.MAC = 21-APR-77 10:16 TMTF--NUMBERED MSG ADDRESS FIELD 
14a _SBTTL TMTF--NUMBERED MSG ADDRESS FIELD 
1449 020606 TTF: STATE TF1 
ad) Mined Me ET ONTEBRE IMM! (TF INIT8777/2> > 
8 =~ ) 
14 haat TF2: SP s SELB, SPe 
(1) 001133 MICPC=MICPC+1 
(1) 020610 063222 (MOVE! SPX! BR! SELB! SP2> 
1461 0206 12 BRURTE as sLOAD ADDRESS 
(1) Oe061e att MS VET WA PERT IMM! (1>> 
1453 020614 TF3: OUTPUT BR, «SELB! TMTDAT> 
(1) 001135 NICPC=NICP t 
(1) 020614 962230 (MOVE 'WROUT! BR! <SELB! TMTDAT> » 
1454 Oedb1E ALWAYS Il 
i) 001136 MICPC=MICPC+1 
(1) 020816 100454 <JUMP!ALCOND! <I1-INITS300084 !<I1-INIT8777/2) > 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-6 PAGE: 0215 


DOCHGH.MAC = 21-APR-77 10:16 TF1-NUMBERED MSG HEADER E0M 
14 ert TF1-NUMBERED MSG HEADER EOM 
1461 020620 TFL: BRWRTE IMM.2 :E0M MASK TO BR 
(1) 001137 MICPC=MICPC41 
(1) 020620 o0040e (MOVE !WRTEBR! IMM! <2>> 
1462 020622 OUTPUT BR. <SELB!OTMTCO> sUPDATE TMTR CONTROL REGISTER 
(1) 001140 MICPC=MICPC+1 
(1) O20622 062231 (MOVE ! WROUT! BR! ‘SELB! QTMTCO> 
1463 020624 OUTPUT BR. <SELB! TMTDAT> s OUTPUT A GARBAGE CHAR 
(1) 001141 MICPC=MICPC+ 
(1) 020624 062230 <MOVE !MROUT BR! SELB! THTDAT? 
1464 020626 ‘ BRURTE al 1IBAL :READ LOW ORDER FROM INSA 
(1) 020626 hei ‘ie le t IBUS! <I1BAL) > 
1465 020630 -IF ODD BYTE--PRANCH 
(1) 001143 AICPCSMICPC | 
(1) 020630 1le2l6e <JUMP® BROCON! < TMTF 1-INITS3000#4> ! < TMTF1-INIT877772>> 
1466 020632 STATE THTH 
(1) 001144 MICPC=MICPC 
(1) O20632 o00546 <MOVE LRT GRE IMM! <THTH-INITS777/2>> 
1467 020634 ALWAYS XEXIT 
(1) "  OO114S AT APCOMICP Ch 
(1) 020634 110563 “JUMP! AL COND! ¢ KEXIT-INITS300084 ! (XEXIT-INITS777/2> > 


JOl 


DNC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-7 PAGE: O21é 
DDCHGH.MAC © 21-APR-77 10:16 TF1-NUMBERED MSG HEADER EOM 
5 RREREELERERET T TH--MO 
{83 eesEETING CRITICAL PATHS MOREY HATH SRRRACTERE 
1472 020636 TMTH: S NPR, SPO :READ NPR CONTROL 
‘5 001146 SPER on AHS 
(1) 020636 123600 HOVE! SPORK! IBUS! NPR! SPO) 
1474 020640 me BRM no a, IF RECV NPR --PROCESS 
\ 
(1) 020640 OO ates is BRYON! css-1N1T8300084 1<S$-INIT877772>> 
1476 o20642 B IF NPR IN PROGRESS --BRANCH 
(1) O20642 OB Akeg nye USES a. INITS3000%4> | <I1-INIT877772>> 
1477, 020644 cs: OUTPUT IBUS, <INDAT1! TMTDAT “WRITE THE EVEN CHAR TO TMT SILO 
(1) 001151 MICPC=MICPC+ 
(1) 020644 O22010 (MOVE ! WROUT ! IBUS! <INDAT1! TMTDAT> > 
1478 Oe0646 SP 1BUS IIBA1,SPO ;READ LOW BYTE OF BA TO SP 
(1) 001152 MICPC=MICP 
(1) O2064% 023100 CHOVE! SPX? BUS! 11801 #SPO) 
1479 020650 OUTPUT BR, <INCA!IBAL> OUTPUT INCREMENTED BA 
1 001153 MICPC=MIC a 
(1) O206S50 O62064 (MOVE ! WROUT! BR! < INCA! IBAL>> 
1480 0206 SP BR ’ sDECREMENT CHARACTER COUNT 
(1) 001154 MICPC=MICPC+1 
(1) O206S2 063166 TAS VETEPX' BR! DECA! SP6> 
1481 020654 C TH6 :NO OVERFLOW 
(1) 001155 M cect CPC+1 
(1) 020654 111160 MPIC OND < THé= INITBSOO0#4» #« THB- -INIT8777/2)> 
1482 020656 sp CA, :DECREMENT HIGH BYTE OF COUNT 
(1) 00115 Sf cPCeNTEP ANS 
(1) 020656 063167 MC OET SES BREDECA!SP7> 
1483 020660 2 HEH1 :BYTE COUNT ZERO 
(1) 001157 a TCPCENICEC#I 
(1) O20660 115407 < JUMP! ZCOND! <HEH1-INIT&3000#4> ! <HEH1-INIT&777/2> > 
1484 O20b62 THE: 
1486 O20bb2 BRWRTE 1BUS TMTCON :READ TMTR CONTROL CSR 
(1) 001160 MICPC=MICPC 
(1) O20662 920620 CHOVE!RTEBR? TBUS! <THTCON) - 
1487 020664 BRY TH sIF MORE ROOM IN SILO--SRANCH 
(1) 001161 MICPC=MICPC+1 
(1) O20664 113165 <IUMP !BRHCON! « TH9- ~INITS$3000#4> ! < THO-INIT3777/2> > 
1489 020666 TMTF1: STATE THO 
(1) 001162 MICPC= scpce 
(1) O20666 O00565 «MOVE! PBRE IMM! <THTHO-INIT8777/2) > 
1494 02067 XEXIT: SP BR ,SP :STORE NEW TRANSMIT STATE 
q) 020670 Sp azee Racpecnuctst 
J « 
1495 020672 ALWAY 
(1) 001164 MICPCSMICPC+1 
(1) 020672 100454 <JUMP*ALCOND! <I1-INIT&3000#4> !<I1-INIT8777/2>> 
1497 020674 TMTHO: 
1s02 020674 THS: same IBUS, <INDAT2! TMTDAT> ODD CHAR TO SILO 
(1) 001165 CPC=MICPC+1 
(1) 020674 022030 MOVE !WROUT! IBUS! < INDAT2! TMTDAT> > 
1503 020676 <P IBUS, IIBAL, SPO sREAD LOW BYTE TO BA 
+t 00116 MICPC=MICPC+ 
(1) 020676 923100 MOVE! SPX! TBUS! IIBAL!SPO> 


DOMC11 DOCMP PROTOCOL IMPLEMENTATION 
21-APR-77 10:16 


DOCHGH . MAC 


ih 


- ~ ~— ~ — -_ — - — — — ~ 
= Oe 2 Oe 


— 
= hb eb be be bb bb be a he be be hh he Ce 


0 


— 
PavlaACi ot all 
se nd 60 ed 


— 


020700 


020700 
020702 


020702 
020704 


020704 
020706 
020706 
020710 
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001204 
1G04S4 
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MACY11 30(1046) 


KO1 


TMTH--ROUTINE TO OUTPUT DATA CHARACTERS 


THE: 


TH?: 


TH3: 


TH3X: 


THe: 


1-I 
1 RE EERE REEEROND TIME CR 


OU TET areas tien: FeAD> 


ee 


11-JUL-77 12:25 PAGE 9-8 


PAGE: 


;OUTPUT THE INCREMENTED BA 


Cone ene eres ! <HOINCH-INIT377772) > 


CA, SP6 


nore i DECA! SP6> 


;DECREMENT CHARACTERCOUNT 


;NO OVERFLOW 


nore BES! -jersooe «TH7-INIT877772> > 


STCPCSMICRe+T 
<MOVE! SPX? BR! tyEcA!SP7> 


MICPC=MICPC+1 


;DECREMENT HIGH BYTE OF COUNT 


;BYTE COUNT ZERO 


<« JUMP! ZCOND! <HEH1-INIT&3000#4> ! <HEH1-INIT&77772>> 


RICPC=MI 
«MO #SPeni!teustnens seo 


BRO 
, aoe PC+1 


epee 1 
pO Ss PPS eee nae re ee 


SP : 
MICPC=MICPC+1 

THOVE I SPX! BR! SELB! SP2> 
BRWRTE IMM, 156 
MICPC=MICPC#1 

«MOVE ! {WRTEBR® IMM! <156>> 


=z 
_ 
oO 
3 
u 
=z 
oe 
+ 
-— 


AL 1 
MICPC=MIC 


TSTATE 

MICPC=MICPC+1 

‘ MOVE! HRTEBR! IMM! <TH7-INIT8777/2>> 
CHOVE!SPX: R! SELB! SP2> 


NI 
IT 


T&R3000#4> $< IT1-INIT8777 
ICAL CATHEEERSESEEERAESSEESREREEEREROS 


;READ NPR REGISTER 


:IF NPR BUSY WAIT TO GO 


Bon! THe- -INIT&3000#4> ! < TH2-INIT877772>> 


;SAVE TSTATE 
;CLEAR CO AND Cl 


;CLEAR THE BITS 


TERRES a. ~INIT&3000#4> $< I1-INIT8&777/2>> 


/2>> 


0217 


LOl 


DMC11 DOCMP PROTOCOL IMPLEMENTATION Macy 11 30(1046) 11-JUL-77 12:25 PAGE 9-9 PAGE: O218 
DDCHGH.MAC  21-APR-77 10:16 MTI--SEND UNNUMBERED TYPE FIELD 
1527 .SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 
1528 020742 TMTI: LOMA IMM, T sADDRESS OF TYPE FIELD TO MAR 
(1) ggorae ibis ieee meee ae 
1939 744 SP MEMX g'88e ;COPY IT TO SP& 
(1) 001211 arcPCentcrcel 
Att oe07wa 043226 «MOVE! SPX! MEMX! SELB! SP6&> 
ret) 0012i2 al epe =m reper 
(1) 020746 000614 <HOVE:WRTEBR! Dt cTHTI- INIT8777/2)> 
hh REO oa ou 
AS} 020750 Tobe nycPc= on a ea '<TD3-INIT8777/2>> 
1533 SBTTL TMTJ--SEND SUB-TYPE FIELD 
1534 020752 TTJ: LOMA IMM. ST :ADDRESS OF SUB-TYPE FIELD TO MAR 
(1) 001214 MICPC=MICPC41 
(1) Oe07S2 010152 «MOVE! LDMAR! IMM! <ST&377>> 
1535 020754 STATE TMTK 
(1) po1215 MICPC=MICPC+1 
(1) 020754 600617 MESES URTEDR! IMM! <THTK- -INIT8777/2>> 
1536 020756 ALWAYS TD3 
(1) 001216 MICPC=MICPC+1 
(i) O20756 110521 «JUMP! ALCOND! < TD3-INIT&3000#4> ! < TD3-INIT8777/2> > 


MO1 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-10 PAGE: 0219 
DDCHGH.MAC _ 21-APR-77 10:16 TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
1538 -SBTTL TMTK--OUTPUT RESPONSE FIELD (UNNUMB MSG) 
1540 020760 TMTK: a :WRITE A 3 TO BR 
(1) 001217 nice =M 
(1) 020760 ante Aen tree «39> 
1541 020762 SUB, SP6 :IF TYPE LESS THAN 3 
(1) 001220 Macau SRS 
(1) 020762 060346 <BR SUB! SP6> 
1S42 020764 TSTATE TMTL 
(1) 001221 MICPC=MICPC+1 
(1) 020764 000625 (MOVE ! WRTEBR! IMM! <TMTL-INIT&777/2> > 
(1) 001222 MICPCENIC CPC+1 
(1) 020766 063222 <HOVE! SPX 1 8R! SELB! SP2> 
1543 020770 C 
(1) 001223 SrcpcenICP peed 
(1) 020770 1112832 CJURPECCOND! THTLO-INIT83000%4 <TMTLO-INIT8777/2)> 
1544 020772 WAYS TDe 
(1) 001224 nrCPCS =MICPC+1 
Ase) 020772 110520 < JUMP! ALCOND! < TD2-INIT&3000#4> ! < TD2-INIT8777/2> > 
1546 *SBTTL TMTL--UNNUMB MSG NUMBER FIELD 
1547 020774 TMTL: TSTBTE THIN 
(1) 001225 MICPC=MICPC+1 
(1) 020774 000637 <MOVE !WRTEBR# IN! <THTM-INIT8777 2) 
(1) 001226 MICPC=MICP 
(1) 020776 63222 NHOVET SPX" BRE SELB! SP2> 
1548 021000 B 
(1) 001227 MICPC=MICPC41 
(i) 021000 o00403 (MOVE! WRTEBR! IMM! <3>> 
1549 021002 CMP BR, SP6 ;IS MESSAGE REP 
(1) 001230 MICPC=MICPC+1 
(1) 021002 060366 <SUBTC! BR! SP6> 
1550 021004 2 TMTLI : YES 
(1) 001231 MICPC=MICPC+1 
(1) O21004 111635 < JUMP! 2COND! < TMTL1-INIT&3000#4> ! < TMTL1-INIT8777/2>> 
1551 021006 TMTLO: BRW RTE IMM. O :ADDRESS CONTNAT OF ZERO 
(1) 001232 MICPC=MICPC41 
(1) 021006 900400 (MOVE ! WRTEBR! IMM! <0) > 
15S6 021010 OUTPUT BR. <SELB! TMTDAT> :SEND IT OUT 
(1) 001233 MICPC=MICPC+1 
(1) 021010 062230 (MOVE! WROUT! BR! «SELB! TMTDAT> > 
1557 021012 ALWAYS Il ;BACK TO IDLE LOOP 
(1) 001234 MICPC=MICPC+1 
afy) 021012 100454 CSUMP?ALCOND! <I1- ~INIT83000%4> ! <I1-INIT877772> > 
1560 021014 tMTL1: BRWRTE BR,DECA!SP12 :WRITE A RESPONSE 
(1) 001235 MICPC=MICPC+1 
(1) 021014 060572 <HOVE :MRTEBR! BR! <DECA!SP12>> 
1561 21016 ALWAYS TMTAS 
(1) 001236 MICPC=M 1cPCs 1 
iB 021016 110441 < JUMP AL COND! <THTAS-INITS3000#4> ! < THTAS-INIT8777/2>> 


NO1 


OMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-11 PAGE: 0220 
DDCHGH.MAC  21-APR-77 10:16 TMTM--UNNUMB MSG--STATION ADDRESS 
1564 .SBTTL TMTM--UNNUMB MSG--STATION ADDRESS 
1565 021020 7 TMTM: STATE TNEON 
ae = 
(1) 021020 BBA 4] MAS OETAYESRE IMM! <TNEOM-INIT8777/2) > 
1566 021022 ALWAYS TFe 
af ete MT ONB LAL CONDE <(TF2 INIT&3000%4> ! <TF2-INIT8777/2>> 
18¢3 8S 1856 ‘ TNEOM: Sa MM, 2 : END ta MESSAGE TO BR 
(1) 001241 MICPC=MICPC Pct 
(1) 021024 900402 <MOVE ! WRT BRE IMM 1<2)) 
1568 021026 topes <SELB!OTMTCO> 
(1) 001242 M CPC=MICPC+1 
(1) 021026 062231 VET UAGUT? GR! (SELB! OTNTCO>> 
1569 021030 a Ure R (SELB! THTOAT) ; OUTPUT A GARBAGE CHARACTER 
(1) 001243 Mm C 
(1) 1030 062230 oe Sr 
1570 021032 BRURTE IMM, 4 ;SET UP LINE HAS GONE IDLE MASK 
i peinge Sada MVE mc 
1s} AS 1886 cBpyet WR TROR bars ;UPDATE LINE STATUS WORD 
wD 021034 eat mee RL PORB! SP10 
> 
1572 021036 :5 Rie, Bee Aft ;SHIFT STATUS LEFT 
(1) 001246 SORE ar 
(1) 021036 060530 (HOVE URTEBRPER!RSP1O> 
1573 21040 BR7 108 ;IF HDX SET---BRANCH TO CLEAR OK TO SEND 
(1) 001247 MICPC=MI 
(1) O21040 113653 CTGMPIBRICON! <1OS-INIT&3000#4) ! < 108- INIT8777/2>> 
1574 21042 ~ BRWRTE IMM, 376 :MASK TO TURN OFF UNNUMB PENDDING 
(1) 001250 MICPC=MICPCH1 
(1) 021042 000776 «MOVE! WRTEBR! IMM! <376>> 
1575 021044 cs: SP BR, AANDB, SP10 ;MASK TO LINE STATUS WORD 
(1) 001251 MICPC=MICPC+1 
(1) O21044 063270 -<MOVE ! SPX! BR! AANDB! SP10> 
1576 O21046 ALWAYS T 
(1) 001252 MICPC=MICPC+1 
(1) O2104%6 110740 < JUMP! ALCOND! < TEOM2-INIT&3000%#4> ! < TEOM2-INIT8777/2>> 
iS77 O210S0 1Gieg  BRURTE inn 176 “CLEAR OK TO SEND AND UNNUMB PENPENDING 
(1) 001253 MICPC=MICPC41 
‘1) O210S0 000576 ‘ (MOVE! WRTEBR! IMM! <176)> 
1578 021052 ALWAYS S$ 
(1) 001254 MICPC=MICPC+1 
(1} O210S2 11065) < JUMP! ALCOND! <S$-INIT&3000%4> ! <S$-INIT8777/2)> 


oe 
i) 


cere” FD 
BEER @ 


an 
-- b= 
— 


oCRERR 


— ~~ 
[ad 
~~ 


- 


Ue en UIT en UT OUT eee 


Rreediaoes i st t- > .O--— 
— — — —~ — es ee ee ee we 


- — ~~ 


- 
ee OA oid © aed © 8 toni 


R 


~— = 
so) 
-_— 


b-e- 
celeste 


=p 
-_ 


B 


= 
_—_e 
= 
— 


res eterer eters 
& &2 SR RRS 


+o 


- 
= 
mw wo oO 


o-- 


2 
OTOCOL IMPLEMENTATION MACY11 30(1046) _11-JUL-77 12: 25 PAGE 9-12 PAGE: O22! 
21-APR-77 10:16 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
.SBTTL TIMSRV--TIMEOUT ROUTINE--SENDS REP 
"ENABLE LSB 
TIMSRV: BRWRTE IMM. 177 :MASK OFF BR REG 
901255 MICPC=MICPCS1 
000577 (MOVE! WRTEBR! IMM! <177>> 
:RESET TIMER---SLICK MOVE 
:SINCE TIMER IS RESET BY WRITING 
:A 1 AND THE EXPIRATION LOCKS 
sLIKE 1--VOI 
OUT BR. <AANDB! OBR» :AND THE'BIT ON 
001256 MICPC=MICPC+1 
061271 «MOVE! UROUTX! BR! “AANDB! OBR> > 
BRWRTE BR, SELA!'S?1 :READ STATUS BYTE 
001257 MICPC=MICPC+1 
060601 COVE URTESR! GR! cSELAYSP1) 
001260 MICPC=MICPC+1 
102051 SUMP !BROCON! < IDLE- ~INIT&3000%4> ! <IDLE-INIT8777/2>> 4 
BR? IDLE -IF IN MAINT. MOLE DISABLE TIMER 
001261 MICPC=MICPC+1 
103451 < JUMP! BR7CON! < IDLE-INIT83000#4> ! < IDLE-INIT8777/2>> 
SP BR, DECA, SP15 :DECREMENT THE COUNTER 
091262 MICPC=MICPC+1 
063175 (MOVE! SPX! BR! DECA!SP1S> 
2 20$ :IF ALL ONES HAS EXPIRED 
001263 MICPC=MICPC+1 
111670 <JUMP ! ZCOND! <20$- INI T83000#4> ! «20$-INIT8777/2) > 
10$:  BRWRTE BR SEL A'SP10 -READ LINE STATUS 
001264 MICPC=MIC 
060610 HOVE! URTEBR! BR! <SELA!SP10>> bat) 
BRI TRBUPD ;NUMBERED MESSAGE IN PROGRESS 
901265 MICPC=MICPC+1 , 
116731 < JUMP! BRICON! < TABUPO-INIT83000#4> ! < TABUPD-INIT877772> > 
BRO TRBUPD : UNNUMBMSGIN PROGRESS 
001266 MICPC=MICPC+1 
116331 < JUMP! BROCON! < TABUPD-INIT83000#4> ! < TABUPD-INIT8777/2>> . 
ALWAYS IDLE ELSE BACK TO IDLE LOC 
001267 NICPC=N =MICPC+1 
100451 ne JUMP TAL COND! < IDLE- -INITS$3000#4> ! <IDLE-INIT8777 2) > 
20S:  BRWRTE IMM.2 ; 
001270 MICPC=MICPC41 
000402 (MOVE! WRTEBR! IMM! <2>> oe Ae 
SP BR, SELB, SPIS sRESET THE TIMER TICK COUNT 
001271 MICPC=MICPC41 
063235 «MOVE! SPX! BR! SELB! SP15> b 
BRWRTE IMM :SET OK TO SEND AND 
001272 MICPC=MICP Pct 
000601 CHOVE?WRTEBR! IMM! <201)> ’ : 
SPBR «BR. AORB, SP1O ;UNNUM MSG PENDING 
001272 MICPC=MICPt+1 
063710 HOVE? SPERX! BR! ORB! SP10> 
BRSHFT 
001274 MICPC=MICPC+1 
001620 (MOVE ! SHF TBR! WRTEBR! SELB> 


COe 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-13 PAGE: O222 
DOCHGH.MAC  21-APR-77 10:16 TIMSRV--TIMEOLT ROUTINE--SENDS REP 

1609 021114 BRY BS1 IF IN START MODE--BRANCH 

(1) 001275 MICPC=MICPC+1 

(1) O21114 103111 JUMP! BRYCON! <BS1.-INIT83000*4> ! <BS1-INIT877772>> 

1610 O21116 BRWRTE BR,DECAISPl2 -GET LAST NUMBER SENT 

(1) 001276 MICPC=MICPC+1 

(1) 021116 060572 (MOVE !WRTEBR! BR! <DECA!SP12>> 

1811 021120 CMP BR, SP17 COMPARE TO LAST ACKED 

(1) 001277 MICPC=MICPC+1 

(1) 021120 060377 <SUBTC! BR! SP17> 

wble Oellee 2 SNODACK IF EQ --SEND ACK 

(1) 001300 MICPC=MICPC+1 

(1) Oel122 111733 < JUMP! ZCOND! < SNDACK-INIT83000#4> ! « SNDACK-INIT8777 72) > 

1613 Seile4 TIME2: LOMA  IMM.T ;LOAD ADDRESS OF TYPE FIELD IN UNNUME Sk 

(1) 001301 MICPC=MICPC41 

(1) 021124 910151 (MOVE! LOMAR! IMM! <18377>> 

1614 Oellet MEMINC IMM. 3 :LOAD REP TYPE 

(1) 001302 MICPC=MICPC41 

(1) O21126 016403 (MOVE! WRMEM! INCMAR! IMM! <3>> 

1615 021130 MEMINC IMM, 300 :ZERO THE SUB-TYPE 

(1) 001303 MICPC=MICPC41 

(1) 021130 016700 HOVE? WRMEM! INCMAR! IMM! < 300) > ; 

1616 921132 L Inn REP cs CUMULATIVE REPS RECD 

C1) 001304 MICPC=MICPC41 

(1) 921132 610015 (MOVE !LOMAR! IMM! <REPCS8377>> 

1817 021134 SP MEMX, SELB, :COPY IT TO SPO 

(1) 001305 MICPC=MICPC+1 

(1) 921124 043220 <HOVE! SPX: MENX! SELB! SPO? 

1618 621136 MEM BR, INCA! SPO : INCREMENT IT 

(1) 001306 MICPC=MICPC+1 

(1) 621136 O62460 CHOVE LAREN! BR! <TNCA!SPO> Baa 

1619 921140 LOMA IMM. REPST : ADDRESS DYNAMIC REP COUNTER 

(1) 001307 HICEC=NICEC cpcd1 

(1) 921140 910003 ROVE! LOMAR? I?m! cREPSTS77> ©. 

1620 Sell4e BRURT E x. SELB -COPY IT TO THE a8 

(1) 001310 SR CeNTCeC Cel 

(1) O21142 040620 (MOVE !WRTEBR! MEMX! <SELB> > 

1621 O21144 BSHF TB 

(13 001311 MICPC=MICPC+1 

(1) 021144 061620 aie VE? SUF TBR! SELB! BR> 

1b22 021146 MEM BR, SELB 

(1) 001312 MICPC=MICPC+1 

(1) O21146 062620 CHOVE! UREN? BR SELB 

1622 021150 BRO HRES 

(1) 0013123 MICPC=MI Rpcri pas 

(1) 021150 106372 MME? BROCON! <RTHRES- ~INITS300084> ! <RTMRES-INITS777/2> > 

1628 d2i152 ALWAYS IDLE 

(1) ~ 901314 MICPC=MICPC+1 eet 

(4) O211se 100461 MT SMP TAL COND! < IDLE- ~INIT83000#4> ! <IDLE-INITS?77/2>> 

i623 .DSABLE LSB 


02 


= 
DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) Ll-JUL-77 12:25 PAGE 9-14 PAGE: 0222 
DOCHGH.MAC  21-APR-77 10:16 TIMSRV--TIMEOUT ROUTINE--SENDS REP 
1632 021154 TEOM:  BRWRTE IBUS 
a) 021154 eee AICP Cane aus? UBBR> > 
'¢ 
1633 021156 BRO NXMERR sNON-EXISTANT MEMCRY 
(1) 001316 MICPC=MICPC+1 
(1) 021156 106351 < JUMP! BROCON! <NXMERR- ~INITB3000#4) ! <NXMERR- -INIT877772)> 
1634 021160 BRUR :E0M TO BR 
(1) 001317 MICPC=MICPCH1i 
(1) 921160 o00402 (MOVE! WRTEBR! IMM! <2>> 
1635 021162 TPUT BR <SELB!OTHTCO> ;WRITE TMTR CONTROL 
a) 001320 MICPC=MIC 
(1) O21162 62231 «MOVE! UROUT!BR? «SELB OTHTCO> 
1636 021164 OUTPUT BR. <SELB! TNTDAT> :WRITE GARBAGE DATA 
(1) 00132: MICPC=MIC the 
(1) 021164 062230 «MOVE! 'BR! “SELB! TMTDAT> > 
1637 O2l166 BReRTE BR, SELA!SP1 :CKECK FOR BOOT MODE 
1) 021166 ean fe ae Tt 
a e e 
1638 021170 BR? BTEOH ;---IF SET IS MAINT MSG 
1) 001323 MICPC=MICPC+1 
(1) 021170 113762 CIURP!BRZCON! <GTEQM-INITS30O084) # <BTEOM-INITS777/2) 
1839 021172 SP BR, INCA, SPle2 INCREMENT THE MESSAGE NUMBER 
(1) 001324 MICPC=MICPC+1 
(1) 021172 0632072 UASVETEPX'BR! INCA! SP12> 
1640 O21i74 TEOM1: LOMA  BR,SELA'SP16 sADDRESS LAST TMT LIN 
(1) 001325 nicecanicets 1 
(1) O21174 070216 A OE? DMARIGR! <SELA!SP16>> 
1641 021176 BRWRTE MEMX, SELB 
(1) 901326 MICPC=MICPC+1 
(1) 021176 O40620 (MOVE! WRTEBR! MEMX! <SELB> > 
ig42 021200 BRO TEONe 
(1) 001327 MICPC=MICPC+1 
(1) 921200 112340 < JUMP 2BROCON? <TEOM2-INITS3000#4) ! < TEONE- -INIT3777/2>> 
1643 Oelede2 TEOM3: BRWRTE IMM, 375 TURN OFF MESSAGE PENDING 
(1) 001330 MICPC=MICPC41 
(1) Oel202 000775 OMOVE ! UATEBR! IMM! <375)> 
1644 021204 SPBR BR. AANDB, SP10 : 
(1) 0013231 NICPC=NICEC +l 
(1) 021204 063670 TOE SRX! BR! AANDB! SP1O> alee 
1645 021206 BRO TEOKe IF UNNUMB PENDING--GO AWAY 
(1) 1332 MICPC=MICPC+1 ie 
(1) O21206 112340 «JUMP? BROCON? < TEQM2=INIT8300084> ! TEOM2- INITS?77“2>> 
Le4é .SBTTL SNOACK--ROUTINE TO SEND AN ACK 
1647 021210 SNDACK: LOMA 
(1) 001332 LOM CAMICPCSI 
(1) Oei210 016:51 CHOVE!CONR® Int! 18377) 
1648 Oelele MEMINC IMM 
(1) 001334 ME CPCSMICP CS 
(1) Qel2i2 O16401 «MOVE! MAEM? TNCMAR! IMM! < >> 
1649 621214 BRWRTE IMM 
(1) 001335 MICPC=MICPC$1 
(1) O21214 O00405 MS OETIRTESR! INM! <S> > 
1650 OSeizle SA2:  MEMINC IMM, 300 
(1) 001336 MICPC=MICPC41 
(1) Oele16 O1¢700 MOVE ! MEMEM? INCMAR! IMM? < 300>> 
1851 Oei220 Saz: SP BR, AORE, SP1O 
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001337 
063310 


34 

0 
001341 
063222 


001342 
1004S4 


001343 
120600 


001344 
102051 


001345 
070604 


001346 
103520 


001347 
036400 
901350 
036420 
001351 
000402 


001352 
063004 


001353 
023100 


001354 
062004 


001355 
023120 


001256 
062105 
001357 
1e3200 


001360 
10S363 


001361 
110601 


MACY11 30(1046) _l1- 2:25 PAGE 9-15 PAGE: 
Batk-=R a'SEND AN ACK 


E02 


SNDACK--ROUTINE T 


TEOM2: 


FUDGE: 


MICPC=MICPC+1 
(MOVE! SPX! BR! AORB! SP 10> 


tsTATE TNTA 


MES UETHATESRE IMM! <THTA-INIT8777/2> 
MICPC=MICPC+1 


<MOVE ! SPX! BR! SELB! SP2> 

ALWAYS 

MICPC=MI 

CTU COND! <T1- ~INIT83000#4> ! (11-INIT8777/2> 

BRWRTE _IBUS. NPR “READ NPR CONTROL 
micpcen eect IBUS! <NPR> > 

BRO ee IF NPR GOING---LEAVE 
ms 

< JUMP 1BROCON! « IOLE-INIT83000%4> <IDLE-INIT8777/2> 
BRWRTE BRL LOMAR, SELA! SP4 LOAD THE MAR 

MES UE AAT ERRE BR! LDMAR! <SELA!'SP4> > 

BR? owt IF SET - READ BACK ALL 200 


CPC+1 
‘ 'BR7CON! (BS2-INIT&3000#4> ! <BS2° -INIT8777/2>> 

Jur BR 7coN INDAT1 OTHERWISE RESTORE TWO BYTES 
MICPC=MICPC+1 


«MOVE! WRMEM! INCMAR! IBUS! < INDAT1>> 
MEMINC IBUS, INDATe bus 

MC aTUICE Gt | cra! TBUS! <CINOAT2> » 

BRWRTE IMM,c ;UPDATE---UNIBUS ACDRESS 
MICPC=MICPC+1 

SF BeOS 


pes bree SPO 


MICPC=MICPC 
SHOve SPS! igus? 11BA1 SPO 
BR, ADD! IBAL 


OUTPUT 
RICPCMIORC A aay 

SP BUS, IIBA2, SPO sREAD HIGH ADDRESS 
MICPC=MICPC+1 


<MOVE ! SPX! IBUS! ITBA2! SPO> 

OUTPUT BR,AC! IBA : UPDATE HIGH 

MICPC=MICPC+1 

CHOVETHROUTBR! (AC! TBA2> > 
IBUS, NPR 


SP ’ 
TROVE! Tous! NeRESPO 

TCP Can RESEXT ; IF CARRY---UPDATE MAT 
a = 


ICPC+1 
CTUNBECCOND)! <RESEXT- ~INITS300084) ! RESEXT=INIT8777..2»: 
ALWAYS "“TH3X ;GO DO ANOTHER NPR 
MICPC=MICPC+1 a 
«JUMP! ALCOND! < TH3X-INITS2000#4> # < TH3X-INI T8777 /2> 


;UPDATE NPR COUNTER 


;UPDATE ADDRESS LOW 


;READ NPR REGISTER 
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021270 
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021272 
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021274 


021274 
021276 


O2le76 
021300 


021300 
021302 
021304 
021304 
021306 
021306 


021310 
O213le 
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021314 


021314 
021316 


021316 
021320 


021320 
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001403 
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MACY11 30(1046) _11-JUL-77 abe’ :2S PAGE 9-16 PAGE: 


02 


SNDACK--ROUTINE TO SEND AN A 


BTEOM: 


RLY: 


HOINCH: 


BRWRTE IMM, 374 :MASK FOR CLEAR MSG PENDING 
MICPC=MICPC41 
(MOVE! WRTEBR! IMM! (374) > 


’ 


; TURN THEM OFF IN LINE STATUS WORD 


SP BR, SELB, SP13 sSTORE UNRECOGNIZABLE VALUE INTO SP12 
MICPC=MICPC+1 
MOVE I SPX! BR!SELB! SP12> 
:SO “RH3” WILL EX 1] “prc min IDLE LOO 
LDMA —s«IMM. STC !ADDRESS START OF 
NICPC SAIC? pcs] 
pei ren seg 


SP ’ 
MICPC=MICPC 

«MOVE! SPX! MEMX! SELB! SPO) 
TSTATE LL hog ;CHANGE XMIT STATE TO LINE IS IDLE 


;COPY LINK ADDRESS 


ALWAYS TOO ;POST A DONE 

MICPC=MICPC+1 an 

< JUMP! AL COND! < TOON2-INIT&3000#4> # « TOON2-INIT3777/2) > 

RSTATE RCV. 

MICPC=MICPC 

CHOVE! URTEBR! Ih! cRCVL- -INIT8777/2>> 

MICPC=MICPC+i 

<MOVE ! SPX! BR! SELB! SP3) 
TBUS , NPR 


SP , 
MICPC=MICPC+1i 
<MOVE! SPX! IBUS! NPR! SPO> 


BRWRTE IMM 
MICPC=MICPC41 
cMOVE LMRTEBR? IMM! <221>> 


ALWA 
MICPC=MICPC+1 

METAL COND! <RK7-INITS300084> # <RK7-INIT 9277/2)» 
SP IBUS. II1BA2, SPO 

MICPC=MICPC+1 
“MOVE ! SPX! TBUS! 11BA2#SPO> : 
OUTPUT BR, INCA! IBAS :OUTPUT INCREMENTED BA 
MICPC=MICP Pt+1 

<MOVE ! HROUT?BR! < INCA! IBR2> > a 
C S$ / INCREMENT BYTEW COUNT 
MICPC=MICPC+1 


mn" Wetieriageaast oath 77772)? 


ALWA 
MICPC=MIC PC+1 
‘J HM EAL maine «THE-INIT87772>> 


INCREMENT MXT 
IBUS *READ NPR REG INTH CURRENT MXT SITS 
MICPC=MICPC+1 
MOVE 1SPX! 1BUS!NPR! SPO’ r 
BRWRTE IMM,4 sWRITE BIT TO ADC 
ICPC=MICPC+1 


;READ NPR CONTROL REGISTER 
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021334 
aB133e 
021336 


021340 


021340 
C2134e 


021342 


DNC11 DOCMP PROTOCOL Sie Neale 


DOCHGH. MAC 21-APR-77 1 


ooc404 
0014 

Beia18 
001406 
110571 
001407 
000715 


001415 
110563 


GOe 


MACY11 30(1046) l1-JUL-77 12:25 PAGE 9-17 PAGE: 
SNDACK--ROUTINE TO SEND AN ACK 


(MOVE! WRTEBR! IMM! <4>> 
OUT BR, «ADD! ONPR> ; TURN ON PROPER MXT BITS 
CrOVE LW 


Sian noo ONPR> > 


A Sate C+1 
JUMP! ALCOND! <THB=INITB3OOO#4> # <THO-INIT8777/2> 


STATE TEN 

MICPC=MICPC 

CHOVETHRTEBR! TN! TEOM- -INIT877772>> 

ALWAYS XEXIT 

MICPC=MICPC41 = “ 
«JUMP! ALCOND! « XEXIT-INITS300084> ! <XEXIT-INIT8777 2° 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-18 PAGE: 0227 
DDCHGH.MAC  21-APR-77 10:1 REP HANDLER 
1713 .SBTTL REP HANDLER 
1714 021344 REP: LOMA IN, REP C -LOAD MAR ADDRESS WITH POINTER TO REPS RECC 
(1) 21 Saale COVE !LONAR Tat PCRB377>> 
1715 5} sp MEMX is spo :READ NUMBER OF REPS RECD 
(1) 001412 Srcpcentcbeel 
(1) 021346 043220 <HOVE! SPX3MENX: SELB» SPO» 
1716 021350 < INCA! SPO> s INCREMNT REPS RECD 
(1) 001413 micron 
(1) 021350 062460 PUbescancaseo 
1717 021352 ey :LOAD ADDRESS OF TYPE FIELD 
(1) 001414 AYCeCeMICPCH 
(1) Oe213S2 010151 cnove: LORAR! IMM! «18377>> 
1718 021354 : LOAD NAK TYPE 
(1) 901415 ieee ech ct 
(1) 021354 016402 NCMAR! IMM! <2>> 
1719 021356 MEMI MM, 303 sLOAD REP RESPONSE SUB-TYPE 
(1) 001416 MeceCeMToPCSi 
(1) 021356 016703 «MOVE! WRMEM! INCMAR! IMM! <303> > 
1720 921360 ALWA YS SNAK :SEND AN UNNUMS MSG 
(1) 001417 MICPC=MICPC+1 
iB 021360 114704 «JUMP ! ALCOND! « SNAK- ~INIT&3000#4> ! <SNAK-INIT8777 72) > 
1722 *SBTTL START HANDLER 
1723 021362 START: BRWRTE OP, <SELA!SP10> :READ LINE STATUS WORD 
(1) 901420 MICPC=MICPC+1 
(1) 021362 060610 CHOVE!URTEBRIDP! (SELASP1O> pobo 
1724 021364 BRSHF :GET START MODE BIT IN TESTABLE POSITION 
(1) 001421 BRE aIcPCe 
(1) 021364 001620 (MOVE! SHF TBR! WRTEBR! SELB> 
1725 021366 BRH 10$ :IF IN START MODE SET STACK 
(1) 001422 MICPC=MICPC+ 
(1) 021366 117026 (JUMP! BRICON! < 10$-INIT&3000#4> ! < 10$-INIT38777/2>> 
1726 “ELSE SET UP START ERROR 
1727 021370 LOMA —_ IMM, << RTHRS+3>> 
(1) 001423 NICPC=MICECt 
(1) 021370 610177 MM! < <RTHRS+3>8377> > 
1728 021372 BRWRTE IMM, 200 
(1) 001424 MICPC=MICPC+1 
(1) 021372 0O00690 <MOVE 2WRTEBR! IMM? <200> 
1729 021374 WAYS RCEXY 
(1) 001425 NICECEMIC PC+1 
(1) 021374 114522 < JUMP! ALCOND! <RCEXY-INITS3000#4> ! <RCEXY-INIT8777/2>> 
1730 021376 108: LOMA =—sIMM mT “SET UP GDDRESS OF TYPE FIELD 
(t) 137 atta "HOVE Ona MM! <T8377> 
J 4 ) 
174 851408 MEMING nn? ;WRITE STACK TYPE 
tT) gelyo9 Biesa? RIcPcenICP NCMAR! INN! <7 
( ss « «7)>> 
17h B51 dbs SRURTe 1 ne ;SET START RECD AND UNNUME PENDING 
(1) 001430 SNCPCSMTGPCHI 
(1) 1402 000411 stinrsreee tO” etd 
1733 021404 ALWAYS S :SEND THE UNNUMBERED MESSAGE 
(1) 001431 MICPC=MICPC+1 
1, 21404 110736 CJUMP!AL COND! « SA2-INITS300084> !<SA2-INITS777"2> > 


Ss ens 
4. 


DMC11 DDCMP PROTOCOL IMPLEMENTATION 
21-APR-77 10:16 


001432 
009727 
001433 
063270 


001434 
110670 


02 


MACY11 30(10%6) Li-JUL-77 12:25 PAGE 9-19 PAGE: 
STACK HANDLER 


efnTe Th Se _— :MASK TO CLEAR START MODE 


CPC+1 

(HOVE !HRTEBR® IMM! <327> > 
BR, AANDB, SPIO 

MICPC=MICPC+1 
(MOVE ! SPX! BR! AANDB!SP10> 
ALWAYS Tine | -RESET TIMER AND IDLE 
MICPC=MICPC#1 
<JUMP!ALCOND! <TIMEL-INITS2000#4> ! <TIMEL-INIT8777/2> > 


;CLEAR START MODE 


02 


| 
DMC11 DDCNP PROTOCOL IMPLEMENTATION MACYL1 30(1046) L1-JUL-77 12:25 PAGE 9-20 PAGE: 0229 
DDCHGH.MAC - 21-APR-77 10:16 STACK HANDLER 
1740 021414 ICBA22: SP IBUS, IOBA2, SPO ;READTHEHIGH ORDERBITS OF BA TO SPC 
(1) 001435 MICPC=MICPC+] 
(1) 021414 023160 «MOVE ! SPX! IBUS! IOBA2!SPO> 
1741 O21416 OUTeUT < INCA! OBA2> ;OQUTPUT THE INCREMENTED COUNT 
(1) DO1436 MIC stl + 
(1) O21416 (MOVE !WROUT! OP! < INCA! OBA2> > 
1742 021420 C IF CARRY SET INCREMENT THE MXTBITS 
(1) 00437 nyc pce My it 
(1) o214e0 ijsn4) 1 <S$-INITS3000#4> ! <S$-INIT8777/2>> 
1743 021422 ALWAYS 
) Lp hd wa 
: ib 021422 PB aed? “gh nig St pK 9-INITS3000%4) ! <RK3-INITE777/2>) 
1746 021424 ~ S$: 1BUS UBBR, SPO 
(1) 021424 70433 "pe By Faust UBBR! SPO> 
174 021426 
(1) 00144e SF CECEMTOPCH1 
(1) 021426 OO04O4 a ROD 
ate adie 001443 nice =M _ 
(1) 021430 O61011 hove? UE eon eo '0BR>> 
1748 021432 ALWAYS 
(1) 021432 ooue4t ee INIT&3000#4> ! <RK3- INI18777/2)> 
1753 021434 NAK: LL: IMM NORTE :CUMMULATIVE NAK COUNTER 
(1) 001445 nIcPC=MICPCH 
(1) 021434 010011 MOVE !LOMAR! IMM! <NDATR8377> > 
1754 021436 Se MEMX, SELB, SPO READ IT 
(1) 001446 MICPC=MICPC+1 
(1) 021436 043220 «MOVE! SPX! MEMX! SELB! SPO> 
1755 21440 MEM MEMX, INCA! SPO INCREMENT THE COUNTER 
(1) 001447 MICPC=MICPC+h 
(1) O2144O O4246E0 (MOVE !WRMEM! MEMX! <INCA!SPO> > 
1756 O2l44e2 LOMA —«IMM.STC : ADDRESS START OF TMT CHAIN 
(1) 021442 OES RICPCSMICPCH 
J 
1757, D21444 SP MEMX, SELB, SP16 :COPY START OF CHAIN TO LAST XMIT POINTER 
(D) 021444 Eee CHOVE SPR: HER! SELA!SPL6) 
1758 021446 BRWRTE BR INCRE SPI sGETLASTMESSAGE ACKED 
‘T} 1446 ates ME UE HRT EER BREBR" INCA! SPL7 >» 
\ é 
1763 021450 SP Ba Ge SP :COPY TO CURRENT NUMBER 
() 14 Beane Rlgpesmycrtsl 
1760 atts sponte IMM, 6 ;WRITE NUMBERED MSG PENDING 
(1) 0014S4 MICPC=MICPC41 
(1) O21452 O00406 «MOVE! WRTEBR! IMM! <6 > A 
1761 INE HAS G GONE 10LE 
1762 o214s4 SP BR, AORB, SP10 cet 17 IN LINE STATUS WORD 
T) O214SH ert PROVE SACCoR AOR 'SP10> 
{]) 
1763 21456 BR, SE Srepis :RESET TIMER COUNT 
(1) 0014S¢ MICPC=MICPt+ 3 
(1) O214S6 063235 MOVE! SPX! BR! SELB!SP15> 


KO0e 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) Ll-JUL-77 12:25 PAGE 9-21 PAGE: 0230 
DOCHGH.MAC  21-APR-77 10:16 STACK HANDLER 

mh 021460 rt ae a 

(1) =M + 

(1) 021460 PA I3é Mi OND! « TEOMI1-INIT83000#4> ! < TEOM1-INIT8777/2>> 

1765 021462 ‘ ININT: BRWRTE IN 1S ;MASK FOR TURN OFF ALL BUT EXT MEM BITS + NXM 

{t} oeiyea BBAUPE cnOvE: TOASESA! rene caso > 

i766 021464 fs UBBR, SPO :READ BR CONTROL REGISTER 

if) 021464 74484 gt ro ids vean: spo 

1767 021466 Sea sP cnjertet ;MASK OFF VECTOR TO x04 

(1) O14 “ Cae 

f Pp >) 

l ba BS {488 ones toate i apie: snc :MASK FOR INTERRUPT 

(1) 001463 a bal 

(1) 021470 900800 «MOVE! WRTEBR! IMM! <200>> 

1769 021472 OUT AORB! OBR ; INTERRUPT 

(1) 1464 M CPCs MICPC+1 

(1) 021472 061311 cro 'WROU “ae pt 

1770 021474 ; Riop i Fate :RESTORE INPUT CONTROL CSR 

(1) 21474 pei rep dst rncontsPo> 

1771 O21476 ar uns 

(1) 001466 MICPC=M 1eP eo t 

89) 021476 190554 < JUMP! ALCOND! <NIDLE4-INIT83000#4> ! <NIDLEY-INIT8777/2> » 

afd : 


02 
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DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-22 PAGE: 0231 
DOCHGH.MAC  21-APR-77 10:16 STACK HANDLER 
17 “FUGITIVE RECEIVE ROUTINES---DON’T FIT IN PAGE 
18 021500 RHI: abate VE a sf 
(1) 001467 nIgreen< PC Lat 
(1) 21500 000477 CHOVE!URTEBR? 1! «77> 
1785 021502 SPS 
(1) 001470 MICPC=MICPC+1 
(1) 021502 063265 «MOVE! SPX! BR! AANDB! SPS> 
1786 021504 LOMA BR. <INCA!SP14> ;LOAD ADDRESS OF CURRENT COUNT 
(1) 001471 MICPC=MICPO+I 
(1) 021504 070074 CHOVE!LORAR? BR? <INCA!SPL4)> 
1787 021506 SP 'INCMAR, SELB, SPO ;SAVE MASK 
(1) 001472 MICPC=MICPC+1 
(1) 021506 077220 ( HOVE ! SPX!BR? INCHAR! SELB! SPO) 
1788 021510 BRWRTE BR? INCHAR, SELA!SP1 ;READ STATUS BYTE 
(1) 001473 NICPCs SURE 
(1) 021510 07460] BR'BR!INCMAR! SELA!SP1>> 
1789 021512 BRSHF ;SHIFT IT RIGHT 
cL) 021512 ate RiGee acre RIWRTEBR! SELB 
< > 
1790 021514 BRI RH ;NO BUFFER ASSIGNED IN MAINT MODE 
(1) 001475 MICPC=MICPC+1 
(1) 021514 116502 < JUMP! BRI ON! «RHE N ye eal a 1877772) 
1791 21516 BRWRTE NDB! SP T HIGH BYTE COUNT BITS 
(1) 001476 Ricrc=MICPCs 
(1) 021516 OS4660 a ree i RRR o> 
1792 021520 CNP BR SPS ;COMPARE HIGH ORDER BITS OF COUNT 
(i) 001477 MICPC=MI a 
(1) 021520 060365 <SUBTC! BR! SPS> 
1793 021522 C RCFATL ;IF CARRY--T00 BIG ERROR 
(1) 001500 CHOne Cogn C+1 
e9) ge 2 115113 FOE RR TT ITSO0O0 ET CORP 
l 1 LOW IF EQUAL COMPARE LOW ORDER BITS OF COUNT 
dh rests Ricpesnrcete ~INIT83000#4> # <RCLOW-INI78777/ 
ibde AS fas? rue:  aebhire Gy Pea MERE 7 OR Byte OF IN BA 
(1) pe1se6 O20E40 CHGVE IMATE eet BUS! < 10BAL 
J < »> 
1546 8s} 8 Atio ;IF SET IS ODD TRANSFER 
(1) 001503 nl CPc=nIC C+ 
(1) 021530 116106 NP! BROCON? < RCVODD- INIT&3000#4> ! <RCVODD-INIT8777/2>> 
1801 021532 ete 
(1) 001504 MICPC=MICPC+1 
(1) 021532 900660 CHOVEURTEGR IMM! cRCKEO- INIT8777/2>> 
1802 021534 xIT 
(1) 001505 NTcecenICP 
Age 021534 100450 «JUMP! ALEOND? <REXIT- ~INITS3000#4> ! <REXIT-INIT8777/2>> 
1804 021536 RCVODD: STATE RCVKOL 
(1) 001506 MICPC=MICP 
(1) 021536 000607 <MOV STIR TERE IMM! <RCVKOI- INIT8777/2>> 
1805 021540 ALWAYS REXIT 
(1) 001507 MICPC=MICPC+1 
iy 021540 100450 CJUMP!AL COND! <REXIT- INIT83000%#4> ! <REXIT-INIT8777/2>> 
1807 G21s42 RCLOW: CMP MEM ;COMPARE LOW ORDER BITS OF COUNT 
(1) 001510 MICPC=MIC mie 


MOe 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-23 PAGE: 0232 
DDCHGH.MAC  21-APR-77 10:16 STACK HANDLER 
« TC! 'Spy) 
1868 AS {eg — — . mers Aa ;CARRY--T00 BIG 
(1) 001511 MICPC=MICPC+1 
(1) O21S44 115113 < JUMP! CCOND! <RCFATL-INIT&3000#4> ! <RCFATL-INIT8&777/2> > 
1809 021546 Al Ways R “ELSE CONTINUE 
(1) 001512 MICPC=MICPC+1 
(1) 02154 114502 < JUMP! ALCOND! <RH2-INIT&3000#4> ! <RH2-INIT&777/2>> 
1810 021550 RCFATL: LDMA T 
(1) 001513 MICPC=MICPC41 
(1) O215S0 010151 «MOVE! LOMAR! IMM! <T&377>> 
1811 021552 MEMINC 
(1) 001514 MICPC=MICPC41 
(1) Gelsse o16402 (MOVE ! WRMEM! INCMAR! IMM! <2>> 
eit wana 001515 MCP mM Uno 
(1) O21SS4 002711 «MOV! THRMEN? Lt! <311>> 
1813 021556 LDMA IMM, <<RTHRS+1>> : ADDRESS ERROR LINK 
(1) 001516 MICPC=MICPC+1 
(1) 021556 010175 <MOVE !LDMAR! IMM! < <RTHRS+1)8377>> 
1814 021560 MEMING 1BUS I0BAl 
(1) 001517 MICPC=MICPC+1 
(1) 021560 036540 (MOVE! WRMEM! INCMAR! IBUS! < IOBAL>> 
1815 O2156e MEMINC IBUS, IOBA2 
(1) 001520 MICPC=MICPC+] 
(1) Oe1S62 036560 (MOVE ! WRMEM! INCMAR! IBUS! < IOBA2>> ' 
1816 021564 RWRTE IMM 
(1) 001521 MICPC=MICPC41 
(1) 021564 0900420 (MOVE !WRTEBR! IMM! <20> > 
1817 021566 RCEXY: MEMINC IMM.O 
(1) 001522 MICPC=MICPC41 
(1) 021566 016400 «MOVE! WRMEM! INCMAR! IMM! <)> 
1818 021570 MEM BR, SEL 
(1) 001523 MICPC=MICPC+1 
(1) 021570 O62620 (MOVE !WRMEM! BR! <SELB> > i 
1819 021572 RCEXX: OUTPUT IMM. <200!ORCVCO> :FLUSH INPUT SILO 
(1) 001524 MICPC=MICRC41 
(1) 021572 O02212 <MOVE ! WROUT ! TMM! <200!ORCVCO> > 
1820 021574 IMM. SP2, ; INHIBIT FURTHER TRANSMISSIONS 
(1) 901525 MICPC=MICPC41 
(1) 021574 003002 <MOVE ! SPX! IMM! SP2! 2> 
1821 021576 SP IMM, 1, SET INIT MODE IN PORT STATUS WORD 
(1) 001526 MICPC=MICPC41 
(1) 021576 003001 «MOVE! SPX! TMM! 1!SP1> 
1822 021600 ALWAYS NTRS! 
(1) 001527 MICPS=MICPC+1 
(1) 021600 114666 < JUMP! ALCOND! <NTRS1-INIT&3000#4> ! <NTRS1-INIT8777/2>> 
1823 Oel602 TDON3: BRWRTE MEMX SUB!SP17 ;COMPARE RESPONSE TO MSG NO 
(1) 001530 MICPC=MICPC+ 
(1) O21602 040757 «MOVE! WRTEBR! MEMX! <SUB!SP17>> 
1824 021604 BR? RH3 IF NEGATIVE EXIT 
(1) 001531 MICPC=MICPC+1 
(1) O21604 107562 < JUMP! BR7CON! <RH3-INIT&3000%#4> ! <RH3-INIT&777/2> > 
1825 021606 TOONe: LD BR. SELA! SPO ADDRESS THE TRANSMITLINK 
(1) 001532 MICPC=MICPC+1 
(1) O21606 070200 <MOVE! LOMAR! BR! <SELA!SPO> > 
1826 021610 MEM IMM, 0 : TURN OF ASSIGNEDAND TMTED BITS IN FLAG 


NOe2 


DMC11 DDCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-24 PAGE: 0233 
DDCHGH.MAC  21-APR-77 10:16 STACK HANDLER 
(1) 001533 MICPC=MICPC+1 
(1) 021610 o02400 (MOVE! WRMEM! IMM! <O>> 
1827 Oelble LOMA. —sIMM. ST 
(1) 001534 MICPC=MICPC41 
(1) O21612 010067 (MOVE! LDMAR! IMM! <STC8&377>> 
1828 021614 MEM MM. TML I ASSUME WRAPAROUND 
(1) 001535 MICPC=MICPC41 
(1) 021614 O02471 «MOVE! WRMEM! IMM! <TMLI>> 
1829 O2lb16 BRWRTE zr TML8 ; WRAPAROUND? 
(1) 001536 MICPC=MICPC41 
(1) 021616 000543 (MOVE ! WRTEBR! IMM! <TML®> > 
1830 O21 CMP BR, SPO 
(1) oeise0 e060 pay aN 
1831 Bste 2 TOON4Y YES 
(1) 001540 MICPC=MICPC+1 
(1) Oe1€% 115543 < JUMP! ZCOND! < TDON4-INIT&3000%4> ! < TDON4Y-INIT&77772> > 
1832 021624 BRWRT : OFFSET FOR NEXT TMT LINK 
(1) 001541 MICPC=MICPC+1 
(1) 021624 OO0406 (MOVE! WRTEBR! IMM! <6>> 
1833 O2l626 MEM ADD! SPO ;UPDATE THE POINTER 
(1) 001542 MICPC=MICPC+1 
(1) 021626 O62400 (MOVE! WRMEM! BR! “ADD! SPO> > 
1834 021630 TDON4Y: LDMA IMM NXT s ADDRESS DONE LINK 
(1) 001543 MICPC=MICPC41 
(1) 021630 010241 <MOVE! LDOMAR! IMM! <NXTSP&377> > 
1835 021632 LDMA MEMX, SELB!SPX!SP3 ;ADDRESS THE LINK,COPYING 
(1) 001544 MICPC=MICPC+]1 
(1) 021632 053223 <MOVE! LOMAR! MEMX! «SELB! SPX!SP3> > 
1836 :ITS ADDRESS TO SPO 
1837 021634 MEMINC IMM, 200 WRITE THE INTERRUPT TYPE 
(1) 901585 NICPCs crc 
(1) 021634 O1660 «MOV TRMER NCMAR! IMM! <200> > 
1838 021636 MEM BR, INCA! SPO ;COPY ACTUAL LINK ADDRESS 
(1) 001546 NICPC=MICEC + 
(1) 021636 O62460 <MOVE ! WRMEM! BR! < INCA! SPO) > 
1839 021640 LDMA IMM, NXTSP ;ADDRESS PTR INT STACK 
(1) O21e40 O1Ge41 Mee ET DRAR! TMM! <NXTSP8377> 
< 8 4 > 
1840 Watt MEM IMM et ASSUME WRAP ARCUND 
(1) 001550 MICPC=MICPC41 
(1) O21642 002642 <MOVE ! WRMEM! IMM! < INTSTK>> 
1841 O21644 BRWRTE IMM. <<MMEND-2>> s ADDRESS ENDOFINT STACK 
(1) 001551 MICPC=MICPC41 
(1) 021644 000776 «MOVE! WRTEBR! IMM! <<MMEND-2> >> 
1e42 O21646 CMP BR, SP3 ; WRAPAROUND ? 
(1) 0015S2 MICPC=MICPC+1 
(1) 02164 060363 <SUBTC! BR! SP3> 
1843 021650 2 TOON4O : YES---BRANCH 
(1) 001553 MICPC=MICPC+1 
(1) O21650 115556 < JUMP! ZCOND! < TDONYO-INIT&3000#4> ! < TOONYO-INIT8777/2>> 
1944 021652 BRWR 2 ;OFFSET TO NEXT PAIR 
(1) 001554 MICPC=MICPC41 
(1) 21652 000402 (MOVE! WRTEBR! IMM! <2>> 
1845 021654 MEM BR. ADD! SP3 ;UPDATE POINTER 
(1) oo1sss MICPC=MICPC+1 
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MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-25 
STACK HANDLER 


TDON4O: 


TOON]: 


OVRRUN: 


NPUTS: 


: IBUS,LNOSW, SP 12 


a a a 


BRWRTE 
MICPC=MICPCH1 
«MOVE! HORTEBR? IW 20> 


SP . 
MICPC=MICPC+1 
«HOVE! SPX! BR? AQRB! SP1> 
LOMA —=«IMM. ETC : ADDRESS NEXT EMPTY PTR 
NICPC=HI 1cpcti 

MOVE! LDMAR! IMM! <ETC8377>> 
SF MEMX. SELB, SPO :COPY IT TO SPO 
MICPC=MICcPC+! 
(MOVE! SPX! MEMX! SELB! SPO> 
LOMA «IMM. STC GET NEXT DONE PTR 
NICPC=NIC cect 

MOVE ! LDMAR! Inés «STC8377> ) 


CMP MEM 
MICPC=MICPC+] 
<SUBTC! MEMX! SPO> 
2 RH3 :FINISH PROCESSING HEADER 
MICPC=MICPC+ 


1 
<« JUMP! ZCOND! «RH3-INIT83000#4> ! <RH3-INIT$77772>> 
LDMA IMM, ISP17 ;GET LAST ACKED 
RICE Cane pct} 
MOVE? LOMAR? IMM! <ISP178377> 
MEMX 


Sp " 
NICPC=MICPCt +1 
MOVE! tSPX?MENX! SELB! SP17> 


;WRITE INTERUPT PENDING 


;IN PORT STATUS WORD 


: IDENTICAL? 


;STORE IT IN SP17 


(OMA -GET START OF TMT CHAIN 
NICPC=HICPC Pchi 
VETLOMAR! IMM! <STC8377>> | 

one MEMX, SELB! SPBRX! SPO sADDRESS THE LINK 
MICPC=MICPC+ +1 

MOVE ! LOMAR! MEMX! «SELB! SPBRX!SPO> > be 
BRURTE RENX? INCHAR SELB :GET THE FLAGS 
MICPC=MICPC 
CHOVE? WATEBR! MEMX! INCMAR! (SELB> > é eee 
BRI T :IF BUFFER ASSIGNED PROCEED 
MICPC=MICPC+1 
< JUMP! BRICON! < TDON3-INIT8309084> ! < TDON3-INIT8777. 2) 
ALWAYS RH3 - ELSE---EX!1 
MICPC=MICPC+1 
< JUMP! ALCOND! <RH3-INIT83000#4> ! <RH3-INIT3777/2> > 
BRWRTE I 
MICPC=MICPCS 
(MOVE !WRTEBR! IMM! <4) > 
ALWAYS NTR . 
MICPC=MICPC+1 eich 
< JUMP! ALCOND! <NTRSO-INITS3000#4> ! <NTRSO-INITS777.2) 


SPO = RECEIVE CHARACTER 
sREAD PASSWD SWITCH 


PAGE: 





0234 


~ 
. 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-26 PAGE: 
DOCHGH.MAC 21-APR-77 10:16 STACK HANDLER 

(1) 901576 MICPC=MICPC+1 

(1) 021716 023333 <HOVE! SPX3 [BUS !LNOSH! SP13) 

1869 021720 O$ :IF ALL ONES NO RLD ENABLED 

(1) 001577 MICPC=MICPC+1 

(1) 021720 115603 «JUMP! ZCOND! < 10$-INIT&3000#4> ! < 10$-INIT877772>> 

1870 O2l722 TE IMM.6 “CHECK FOR ENTER MOP MODE 

(1) 001600 MICPC=MICPC$1 

(1) O21722 O00406 (MOVE! WRTEBR! IMM! <6>> 

1871 021724 CMP BR, SPO 

(1) 001601 MICPC=MICPC41 

(1) 021724 060360 <SUBTC! BR! SPO> 

1872 021726 2 208 -IF EQUAL ENTER MOP 

L) 1 ooneue rset th NIT&3000#4> ! <20$-INIT8777/2>> 

1633 851558 10S: Sauer Br, Se CRISP] OB AD STATUS BYTE 

(1) 001603 il a 

(1) 021730 O80601 Me OE TURTEBR!BR! <SELA!SP1)> 

1874 Oe2l7 :SHIFT IT RIGHT 

(1) 001604 MICPC=MICPC+1 

(1) O21732 9001620 (MOVE ! SHF TBR! WRTEBR! SELB> - r 

1875 021734 BRI RHX sMESSAGE WITH NO BUFFER ASSIGNED 

(1) 001605 MICPC=MICPC+1 

(1) 021734 106740 (JUMP! BRICON! «RHX-INIT83000#4> ! «RHX-INIT8777/2) > 

1876 021736 BRSHF T -SHIFT RIGHT AGAIN 

(1) 001606 MICPC=MICPC+1 

(1) 021736 0016820 (MOVE ! SHF TBR! WRTEBR! SELB> 

1877 021740 BR1 RCVMO :DLE RECEIVED IN NORMAL MODE 

(1) 001607 MICPC=MICPC+1 

(1) 021740 106732 CTUMP! BRICON! <RCVMO-INIT83000%4> ! <RCVMO-INIT8777 /2> > 

1878 021742 ALWAYS RK3 “HANDLE MAINT MODE MESSAGE 

(1) 001610 MICPC=MICPC+1 

(1) 021742 104641 < JUMP! ALCOND! <RK3- INI T83000#4> ! (RK3- “INIT8777, 2) 

1873 921744 205: 3 BR, DECA, SPY -COUNT FOR NUMS OF COMPARES 

(1) 00161: MICPC=MICPC+1 

(1) 021744 063164 «MOVE! OEX BR! DECA! SPY) 

1880 021746 STATE EMe 

(1) 001612 MICPC=MICPC 

(1) 921746 000735 <MOVE ! URTEBR! In cene- -INIT8777/2> 

188: 021750 ALWAYS REX I 

(1) 001612 MICPC=MICPC J 

, ee 021750 190450 a ST aL SOND! <REXIT-INITS3O0084> # REXIT-INIT8777/2>> 

iges .ENABL LSB 

1885 021752 Rovmi: LDMA IMM nt NAKST ;RESET NAKS SENT 

(1) 001614 MICPC=MICPC 

(1) 021752 010001 <MOVE ! LOmaR in «waKSTS377> 

188 0921754 MEM 

(1) 001615 NICPCSMIGPCH1 

(1) 021754 9002401 MOVE! WRMEN! L8 <1) ‘ ; 

1887 021756 LOMA. —siIMM : ADDRESS ORIGINAL RECV BYTE COUNT 

(1) 001616 HICPC=MICP pct 

(1) 0217S 010167 MSE T DMAR! IMM! <BC8377>> ‘ 

1888 021760 SP HENX! INCMAR, SELB.SP4Y § ;MOVE BYTE COUNT TO SP4 

4 es 001617 MICPC=MICPC+1 

(1) 021760 957224 “MOVE ! SPX! MEMX! INCMAR! SELB! SPY» 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACY11 30(1046) J1-JUL-77 12:25 PAGE 9-27 PAGE: 0236 
DOCHGH. MAC 21-APR-77 10:16 STACK HANDLER 


1889 021762 SP HENX? INCHAR, SELB,SPS § ;AND SPS 

(1) 001620 MICPC=MICPC+ 

(1) 021762 057225 «MOVE! SPX! RENK? INCHAR! SELB!SPS> 

1890 021764 MEM BR, DECA'SP11 :COPY SP11 FROM MEMORY 
(1) 001621 MICPC=MICPC+1 

(1) 021764 062571 <HOVE ! WRMEN! BR? <DECA! SP11> > 

1891 021766 LOMA TSP 

(1) 001622 NICPC=NI repchy 

(1) 021766 010241 (MOVE! LOMAR! IMM! <NXTSP8377> > 

1892 021770 SP MEMX' LOMAR, SELB, SP3 sCOPY TO SP2 

(1) 001623 MICPC=MICPC+1 

(1) 021770 053223 CHOVE! SPX PENX LONAR! SELB: SP3> 

1893 021772 MEMINC IMM, 204 sRECEIVE DONE IMAGE 

(1) 001624 NCPC: IC pci 

(1) 921772 016604 NCH, Tet eo? 

1894 021774 le BR!LOMAR, SELA!SP14 sCOPY LINK ADDRESS TO NEXT INTER 
(]) 001625 MICPC=MICPC+1 

(1) 021774 072614 (MOVE !WRMEM! BR!LOMAR! <SELA!SP14 > 

1895 021776 MEMINC IMM,O sZERO THE FLAGS 

(1) 001626 NICPC=MICPC?1 

(1) 021776 O16400 TO VETWRMEN! INCMAR! INM! <O> 

1896 022000 Se Inttt INCHAR, SPO, 300 :WRITE A 300 TO SPO 

(1) 001627 MICPC=MICPC+1 

(1) Oez000 017300 <MOVE 1 SPX? IMM? INCHAR! SPC! 300 : 

1897 022002 BRWRTE IMM! INCHAR 2 sPREPARE TO ADDRESS NEXT 
(1) 001630 MICPC=MICPC41 

(1) Oez002 14402 (MOVE! WRTEBR! IMM! INCMAR! <2>> 7 
1998 : INTERRUPT STACK AND INCREMENT 
1900 o22004 MEM MEMX, AANDB! SPO "MASK OFF ORIGINAL HIGH BYTE 
(1) 001631 MICPC=MICPC+1 

(1) 022004 O42660 <MOVE ! WRMEM! MEMX! <AANDB! SPO> > aa 
1901 SOF COUNT SAVING EXTENDED MEM 3] 
1902 o22006 MEMINC MEMX,AORB!SPS :COPY TO MEMORY LIN 

(1) 001632 MICPC=MICPC+] 

(1) 022006 O56705 CMOVE t WRMEM? INCMAR? MEMX! <AORB!SPS>> 

1903 022010 MEMINC BR SELA! SP4 

(1) 001633 MICPC=MIC 

(1) O22010 076604 CHOVE TURNER? TNCMER? BR! <SELA!SP4 > kas 
1904 d2201e LDMA «IMM. NXTSP sADDRESS NEXT INT STACK 
1) 901634 nICPCaMICPCH 

(1) Oe2012 o102%1 MOVE! LOMAR! IMM? <NXTSP&377>> 

13905 022014 MEM BR, ADD! SP3 

(1) 001635 NICPC=MICPC +1 

(1) 022014 062402 MOVE ! WRMEM! BR! “ADD! SP3>> 

1906 O22016 BRURTE IMM. <<MMENL=2> > sADDRESSEND OF INT STACK 
(1) 00163 MICPC=MICPC41 

(1) 022016 90077E <M SOE TURTEGR! IMM! < <MMEND~ 2>>> 

1307 Oee020 CMP BR, SP3 WRAP AROUND 

5) em 001637 MICPC=MICPC+1 

(1) ae2020 060362 <SUBTC! BR! SP3> : — 

1908 d22022 2 40$ :IF YES-- BRANCH 

CL) 001640 MICPC=MICPC+1 

(2) Qe2022 115651 MOAB SOND! -4OS-INITS3000#4> # «40 IS-INITS777/2>> 

1309 022024 208: 

isic 22024 BRWRTE IMM,S s INDEX TO NEXT SUFFER 


DMC11 DOCMP PROTOCOL IMPLEMENTATION MACYL1 30(1C46) Li-JUL-77 12:25 PAGE 9-28 PRGE: 0237 
DOCHGH . MAC 21-APR-77 10:16 STACK HANDLER 


( M 

't} peaney BadSdE cnOvE! DAYEBRE ts 

1911 d22026 :UPDATE COPY OF POINTER 
(t} gpago, Beers RIgPCSMEEL ST 

4 r4 ° 4 e a 

1912 022030 BRUTE Lim STC SADDRESS OF WRAP AROUND POINT 
t} oposes MSE TWATES BRE nt (STC>> 

(]) 7 

1913 aSSB38 cnpye WAR cp ; WRAPAROUND? 

‘t} gge032 60374 nlopeenrentst 

1914 022034 2 SOs IF YES---BRANCH 

(1) 001645 MICPC=MICPC+1 

(1) 022034 115653 < JUMP! ZCOND! <SOS-INIT$3000#4> ! <SO$-INIT877772>> 

1815 022036 30$:  BRWRTE IMM 20 :MASK FOR INTERUPT PENDING 
1) 001646 MICPC=MICPC41 

(1) 922036 900420 HOVE TUR TEBR! IMM! <20)> ve 
1916 O22040 SP OP, AORB, SPI UPDATE PORT STATUS WORD 
(1) 001647 MICPC=MICPC+1 

(1) 022040 063301 <MOVE! SPX! OP! AORB! SP1> 

1924 Oee04e ALWAYS FLUSH 

(1) 001650 MICPC=MICPC+1 . 

(1) Oee042 104415 «JUMP! AL COND} <FLUSH-INIT83000%4> <FLUSH=INITS277 “2 » : 
1926 22044 40S: MEM IMM. INTSTK “POINT TO START OF INTERRUPT STACK 
(1) 001651 MICPC=MICPC41 

(1) oe2044 o02542 Me OE TWRMEN! IMM! CINTSTK> > 

1927 O22046 ALWAYS 20S 

(1) 001652 MICPC=MICPC41 * 

(1) 92204 11464! < JUMP! ALCOND! < 20$-INIT&3000#4> ! <20$-INIT8777/2)> 

1928 O220s0 SOS: § BRWRTE IMM RCL “POINT TO START OF RECEIVE QUEUE 
3: fiw 001653 MICPC=MICPC+1 

(1) Oe20S0 900424 (MOVE! WRTEBR! IMM! <RCL1>> 

1929 922052 SP BR, SELB, SP14 

1) 001654 MICPC=MICPC+1 

(1) Q220S2 063234 (MOVE! SPX! BR!SELB!SP14> 

1930 d22054 ALWAYS 30S 

(1) 901655 MICPC=MICPC+1 me 

(1) 922054 114646 < JUMP" ALCOND! <30$-INIT83000#4> !<30$-INIT3777/2) » 

193] .DSABL LSB 

1932 O220S6 NTHRES: LDMA IMM 

1) 901656 MICPC=MICPCH1 

(1) O220S6 0O10152 MASUETLDMAR! INM! <ST8377> > 

19332 022060 SPBR.__MEMX. SELB, SPO 

1) 001657 MICPC=MICPC+ 

(1) O22060 043620 (MOVE! SPBRX! MEMX!SELB!SPO> 

1934 O22062 BRWRTE BR ROD! SPO :SHIFT LEFT 

4 oie JO1GE0 MICPC=MIC 

(1) of 2 Oec4o0 <MOVE! WRT TEBR! BR! «AOD! SPO 

1935 C. BRY OVR RUN 

(1) 001661 MICPC=MICPC+1 mad 

(1) 022064 117174 JUMP! BRYCON! <OVRRUN-INIT83000#4> ! <OVRRUN-INITS777-2>° 

1936 022066 3 BRWRTE IMM, 1 

1) 001662 MICPC=MICPC41 

(1) 022066 000401 CMOVE!!WRTEBR! IMM! < 1>> 

1337 022070 ERRXX: 

132 022070 NTRSO: LOMA IMM, <<RTHRS+3>» 
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022134 


001663 
010177 
001664 
016400 
0016&S 
062620 
001666 
010241 
001667 
0S3220 
001670 
016601 
001671 
002574 
001672 
010241 
001673 


002642 


001674 
00077 


001675 
060360 


001676 
115701 


001677 
oco4de 


001700 
062400 


001701 
o0c420 


001702 
063701 


MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-29 PAGE: 
HANDLER 


STACK 


NTRS1: 


NTRS2: 


”“ 


MICPC=MICPC+1 
cpOvE LOS IMM! < <RTHRS+3> &377> > 


nichsnicee pcs] 
VE TURNER! INCMAR! IMM! <O> > 
BR, SELB 


epts | 
(MOVE! WRHEN! BRS < SELB> > 


DMA MM , NX 
MICPC=MICPC41 

HOVE! LOMAR! INN! <NXTSPS37 7>> 
LDMA ty SELB! SPX! SPO 
nicPc=nI¢ 


VEELORAR Rew! cSELB!SPX! SPO" > 


am 


VE:URES INN <201>> 
neh IMM, <<RTHRS> > 
MICPC=MICPC41 
(MOVE !WRMEM! IMM! << RTHRS> >> 
cd 

' IMM! <NXTSP8&377> > 
nen pyvert IMM nn, INSTA sASSUME QUEUE WRAP GROUND 
MICPC=MICPC+1 
<NOVE 2WRMEM! INIA < INT TK» 

BRWRTE IMM. <<MMEND-e> > 

MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <<MMEND-2> > > 
BR, SPO 


CMP 

ree 

2 NTRS2 ;I1T DID WRAP AROUND 
Arcec=nicpct 1 


UMP! ZCOND! <NTRS2-INITS3000#4) ! <NTRS2-INITS777/2>> 
BRWRT Te. IN 2 —- OFFSET TO NEXT PAIS 
a eBcoMTePCS 
CHOVETURTEBR! IMM! <2 

ADD! SPO 


MEM BR 
MICPC=MICPC+1 
SAS ETWRMEN! BR! “ADD! SPO? > 


BRWRTE 

MICPC=MICPC41 

(MOVE !WRTEBR! IMM! <20>> 
SPBR BR 
SAOVE! SPRY R!RORE! SPD 
BRO eB -FLAGGED BY ERROR TYPE 
NLCPC=MICPCS! 


UMP! BROCON! < TAB1-INIT&3000#4) !< TABL-INITS777/2> 
MM, ISP11 


;UPDATE QUEUE POINTER 


SP 
MICPC=MICPC 
«MOVE! SPX? MEMX! SELB! SPL!) 


~ 90> 
~~ 

utetet SS 
ww Ss) 


~ al 
papeoliinesipa 


- 
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ne “ms ~e 
sd — 
ewe we OK we Oww 


fe 
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ree Dene 
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iets oe ve o~ Oo- 
~~ od eet te 
Mw we Nw we we ee Us es we we ere 


ee 


ee 


ort 0 Contes’ ¢ Cael an! 
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DOCMP PROTOCOL IMPLEMENTATION 
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MAC 
022136 


022136 
022140 


022140 
022142 


022142 
022144 


022144 
022146 


022146 
022150 


022150 
O2e1Se 


022152 
022154 


022154 
022156 
022156 
022160 
022160 
022162 


022162 
022164 
022164 
022156 


022166 
022170 


022170 
02217e 


022172 
022174 


001706 
063071 


001707 
000401 


001710 
063310 


001711 
104415 
001712 
000424 
001713 
Ob2e26 


001714 
000400 


001715 
Ob2227 


001716 
023740 


001717 
Ob2222 


001720 
000766 


001721 
062223 
001722 
C0042 1 


001723 
061231 


001724 
061230 


001725 
120600 


01726 
102371 


001727 
002420 


~, 


MACY11 30(1046) 11-JUL-77 12:25 PAGE 9-30 
STACK HANDLER 


SP eS INCA, SP11 

MICPC=MICPC+1 

«MOVE! SPX! BR! INCA! SP11> 
TE IMM, 1 


w~ 
+D 
-O° 
P.*] 
@ 
we 
me) 
~— 
oO 


Pp 
Ricpccaeet 
fre Aone!SP10 


RiceuanrCPCs 


; INCREMENT MSG EYPECTED 
;UNNUMB PENING BIT TO BR 


;UPDATE LINE STATUS WORD 


GMP? ALCOND! <FLUSH-INIT&3000+4)! «FLUSH-INIT877772) > 


: BRART — IMM 
NICPC=NICPCH 
«MO al 


MOVE! 

SPBR BUS BN873, EPO 

MICPC=MICPC+ 

«MQ 5 SPRRK) LOL Org? 92 SPO) 

OUTPUT BR ', eecahai 

MICPC=MIC 

MOVE !HROUT# BR! “SELB! OUTDAL > » 
TE _IMM, 366 


BRWRTE 
MICPC=MICPC41 

(MOVE !WRTEBR! IMM! <366>> 
OUTPUT BR, SELB! OUTDA2 : 
MICPC=MICPC+1 

<MOVE LMROUT ! BR! <SELB! OUTDA2> » 


BRWRTE I 

MICPC=MICPC41 

(MOVE! WRTEBR! IMM! <21>> 

OUT BR <SELB! OBR? 

MICPC=MIC 

COVE THROUTX!BR! <SELB#OBR> 

ouT BR, «SELB! ONP 

MICPC=MICPC+1 

<MOVE ! WROUTX! BR! «SELB! ONPR> > 

BRWRTE IBUS,NPR 

MICPC=MICPC+1 

MOVE! WRTEBR? IBUS! «NPR? > 
CKTIME 


MICPC=M 
MEMADR RM 
MICPC=MICPC+1 


MOVE! WRMEM! <RMI-INIT&777"2>> 
ALWAYS ACLOW 


;READ 8M873 ADDRESS--- 
;SET UP LOW BYTE OF ADDRESS 


;HIGH BYTE BASE FOR ROM 8007 


;MASK FOR TIMER AND ALSO TO START NPR 


;REAC NPR CONTROL 


MICPC+1 
R i KTIME-INIT83000#4> ! <CKTIME-INIT8777/2>> 
< JUMP !B cae <CKTIME- “IF NPR nONE 


ww 
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DDCHGH . MAC 


o- 
-- 
— 


= 


DD DO ODI Oe 
oe eo 


- ~ 


= 


= 
o~ 
Be whew OK wv 


-~ 


- 
mm DOA Dene 
-->- (D>-- Oe 
ee eed A eee 


i ~ 
tn tm 
~~ 
— 


— 
atgeallioapes 
=~ (— 
ee Ne we 


=e 
—s = BB 
~ 0 


— - 
~ - -—woOo--- 
Lath 
— i Se ee we ~ 


ry 


ob 
OW OS 
RESCH 


e+e 
on | 


ie 


BS508 
088806 
088816 


022210 
022212 


Oeeele 
022214 


022214 
022216 


022216 
022220 
022220 
Oee22e 
O222ee 
022224 
O22224 
022226 


022226 
022230 


022230 
022232 


aS8835 
022234 


4 
Os8e4 


022240 


C2242 


Ceeete 
Geee44 


re 
001731 
023640 


001732 
060400 


001733 
103451 


Briss 


001735 
0004%0e 
001736 
076670 


001737 
076611 


001740 
076612 


003741 
076614 


001742 
076616 


001743 
076617 
001744 
000460 
001745 
019210 
O0174E 
002774 


001747 
003004 


003750 
018017 


001751 


10:16 


MACY!1 30(1046) L1-JUL-77 12:25 PAGE 9-31 PAGE : 
STACK HANDLER 


rawr: EE mae £ACROM-INITS2000"% BCL OWEINITBI77/2 32 ge 


cHOveE Sgt eusuncveon so ;SHIFT LEFT 


RrcPc=ntcPt | 
VE!WRTEBR! BR! <ADD!SPO> > 
E sRECEIVE ACTIVE--IDLE 
MICPC=MI 


+1 
ig ag a INI T&83000#4> !< IDLE-INIT877772) >» 


ay fe ¢1NG108377>> 


RANDB! SP10 ;SAVE BIT 1 OF SP10 
ROVE URHEN? INCMAR* GR! cAANDE!SP1O) 


TABL: 


MEMINC BR. SELA!SP11 :SAVE SP11 
MICPC=M cpt+ 7 
«MO M! INCMAR!BR! <SELA!SP11>> 
MEN IRC BR, SELA!SP12 :SAVE SP12 
MICPC=MICPC+1 
<MOVE 1 WRMEN rINCMAR® BR! <SELA!SP12>» 
MEMINC BR, SELA!SP ;SAVE SP14 
MICPC=MICPC41 
“HOVE LURKER? INCHAR BR! <SELA!SP14) 

NC BR,SELA!SPIE :SAVE SP16 
MICPC=MICPC+1 
<MOVE ! WRMEM EINCHAR: tBR! <SELA!SP1E> 
MEM BR, SELA! :SAVE SP17 
MICPC=MICPC+1 
(MOVE ! WRMEM! INCMAR!BR! <SELA!SP17>> 

;MAR NOW POINTS TO BASE 

STATE fee :D0 NOT tHANGE BR UNTIL REC 


MICPC=MI 
<HOY TUATESR! TMM? (RBZ INIT$777/ 
(Bane i: +AbCt TBSTNT %0 TABLE UPDATE STATE 
Vo MA 


«MOVE! LDMAR! IMM! < TABST8377>> oe 
oe E TBuUl ;NEW PORT STATE ADDRESS 
e » «<TBUL-INIT877772>> 


CHOVE ARE Ci 
EM! IMM! << TBUL-INIT8777/2>>> 
4, SP4 s INITIALIZE COUNT 
aTCPCeNTC PC+] 
«MOVE! SPX! IMM!4!SP4> age 
MOTE FIRST & RAM LOCATIONS ARE NOT WRITTEN 
TO CORE TABLE. 


LOMA 
MICPC=MICPC41 
cMOVE LLDMAR! IMM? <BRSES377> 


ALWAYS 
MICPCSMICPC+! 


0240 
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DOCHGH. MAC 21-#PR-77 10:16 STACK HANDLER 


(1) Oe2244 104442 < JUMP! ALCOND! <RBO-INIT83000%4> ! <RBO-INIT8777/2> > 
1997 Oe2e46 EC2:  BRWRTE IMM,2 “INCREMENT COUNT/TEST 
(1) 001752 MICPC=MICPC+1 
(1) O2224%— 900402 (MOVE! WRTEBR! IMM! <2) > 
1998 022250 S B SPY 
(1) 001753 MICPC=MICPt+1 ' 
(1) O22250 063004 <NOVE! SPX?BR! ADD! SPA) , 
19989 022252 1BUS I0BA1, SPO :POINT TO NEXT ADDRESS 
(1) 90 754 nicpes nice al 
(1) O22252 140 MOV SPE BUS! IOBAL!SPO> 
2000 O222054 OUTPUT BR ADO! OBAL 
(1) 001755 MICPC=MICP 
(1) 022254 062006 TNGVETHROUT!BR! <ADD! OBAL> > 
2001 O22256 SP IBUS, IOBA2, SPO 
(1) 001756 MICPC=MICPC+ 
(1) 022256 023160 «MOVE! SPX! IBUS! IOBA2! SPO> 
2002 O22260 OUTPUT BR ACO 
(1) 001757 MICPC=MICPC+1 
(1) O22260 062107 <MOVE ! WROUT ! BR! «AC! OBA2> > 
2003 022262 C TABMXT 
(ft) 2262 TOSSEe CUR 1CCOND! <TARRT INIT83000#4> ! < TABMXT-INIT8777/2> > 
2 2264 ECX:  BRWRTE BR. SELA “READ PORT STATUS 
(1) 001761 MICPC=MICPC+1 
(1) 922264 6060! CHOVE!WRTEBR!BR! < SELA!SP1> 
2005 022266 aa BRO 208 sINIT MODE, WRITE OUT 200 BYTES 
(1) O22266 18385 nygpee SABESA aos-anrrsaoooe# + 308-1118777/2> 
2006 THERWISE ONLY WRITE OUT ERROR COUNTERS 
2007 022270 BRWRTE BRE LOMAR, , SELA! SPY !READ COUNTER 
(1) 001763 MICPC=MICP 
(1) 022270 970604 COVE! WRTEBR! BR! LDMAR! <SELA! SPH) 
2008 022272 on: g sALL DONE 
v ' 

(1) 022272 eed Rice BREE cos-inorsnnonescos-mnaz77.2 
2009 022274 10$: OUTPUT ' INCMAR, SELB! OUTDA :STORE COUNTS OF ERRORS 
(1) 901765 SUP ReMTe ee a 
(1) 022274 OS6222 <MOVE BR T! ETNCHAR: < SEEBSQUTOAL? > 
2010 022276 OUTPUT MEMX! Nek SELB! OU 
(1) 001766 MICPC=MICPC+i 
(1) 022276 056223 <MOVE ! WROUT ! MEMX! INCMAR! «SELB! OUTDA2> > 
Hf B20) er Ricpcan tas 

rd = 
‘t} oeea00 Po4585 <ROVE! SPX? TBUS!NPR!SPO> 
2014 22302 ALWAYS 
(q) Moaeee na RKB-INITS3000#4> ! <RKB-INITS777/2>> 

< < of 

2015 655306 20$: COMA i age 
(1) 001771 MICPC=MICPC an 
(1) 022304 010210 <MOVE ! OMAR! MM! <TABSTS377>> 
2016 022306 PSTATE 13 
Py 022306 MEM ii << 13-INIT8777/2> > 
(2) 001772 MICPC=MICPC41 
(2) O22 002460 CMOVE !WRMEM! IMM! << I3-INIT&777 
2017 022310 ALWAYS 
Ch) 0017723 MICPC=MICPC+1 


_—— = -——- _—<- «- - 


OMC11 DDCMP PROTOCOL IMPLEMENTATION 
DOCHGH . MAC 21-APR-77 10:16 


ste 088319 
(1) 022312 
2019 022314 
(1) 022314 
2020 022316 
(1) 022316 
202] 022320 
(1) 922320 
2022 

2023 

. ABS. 022322 


ERRORS DETECTED: 
DOCMP “CRF /DS: eae »HILOW, DDCHGH 


104420 
001774 


079604 
001775 
117771 
001776 
114765 
001777 
000009 
000001 

900 


0 


RUN-TIME: 5 8 0 SECON 


RUN-TIME RATIO: 68713=4.9 
CORE USED: (11 PAGES) 


&K 


i671 


MACY11 30(1046) L1-JUL-77 12:25 PAGE 9-33 PAGE: 
STACK HANDLER 


30$: 


03000 


JO3 


Ae GPR cINTERGOO™ * SeDNEDREA® 


MS TUATE 
VE ORTEBRYBFYL OMAR! CSELAYSPA 


BR? . L DONE 
CJURBIBR CON!  20S-INITB2O00e4 * <20$-INIT8777/2)> 
10$ ;KEEP GOING 


ways 
=MICP 
age nnoPeat <10$-INIT&3000%4> ! < 108-1N118777/2» 


$ZERO 
MICPC=MICPC+1 
000000 


END 


KO3 


DZ0NG MACYLIL 301046) L1-JUL-77 12:11 PAGE 36 PAGE: 0242 
DZDNG.P11  22-APR-77 09:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 
1672 02800 
tee 
1675 POE a wat TEST 1 OECUIED Oe Tie 
l * *¥TH 
ies cbc? Be Abrde hah bGkanie ie” PEGMD, PAE on 
é 
73 pan n SUEPORTS. to NORE a OF PE out OPATCH TOOCATION 
tees s REREKERERERRERRA EES [RERRRARRRAAARSAARRAAALALARARALALELALLLLE 
1683 ; TEST i 
1685 022322 012737 000001 001226 TST1: MOV #1, TSTNO 
1686 022330 012737 022760 001216 MOV #TST2, NEXT 
1687 :R1 CONTAINS BASE DMC11 ADDRESS 
1688 O22 005737 022360 TST ROMNUM *FIRST TIME HERE? 
1689 O22342 001002 BNE $ :$K KIP IF NOT 
690 O22 Oe 022362 TYPE, ROM ; TYPE PART NUMBERS 
1691 O223S0 012737 177777 022360 1$: MOV 8-1, ROMNUM Ser FLAG TO ONLY TYPE ONCE 
1692 022356 1oW409 SCOPE : 
ie ee RO Uy (377 <12>7 SUPP THE FOLLOWING CROM PART NUMBERS: / 
tT) Rees NCS GRBAGS BNVETE 1 RET SETS BS BARN fa URBRDS. TE, 2 
1} BESS ostie Its RiStes Paar bic tut ei eon ares 
tf} Bpeni2 Bates pascee ‘ABCLT <JB) (18) 23 4e0R4/ (18) 12> /23-42i8 
(1) Q22612 005377 O46504 03050 ASCH (377>« 8) /DNCL1- 
(1) O22640 031377 026463 03446 "ASCII « 778 71 Wty, .- 3 389/15) «12> /23- -394AY’ 
(1) 022675 015 O31012 O26463 "ASCII «<15>«12)723- “39509 (15) 12) /23- 396A9/< 15) «12> 723-397A9/ 
(1) 022733 015 O31012 026463 LASCII «15><1 > /e3- 338R9 
(1) 022745 015 O310le O26463 "ASCIZ «<15>«12>7283- 8aq/ 
(1) . EVEN 
(3) 
1695 
teay irtale Te a specia Test wMgcw WILL RUN ONAKMC COMC WITH 
1698 Wat T BBE a ONTROL oF ene EL THE CRAM WITH THE DOCMP 
1699 SAT CRO- CDE. OFTRS T Be SURE Heb OF STAT3 IS SET UP AS FOLLOWS 
1700 :#1=LOCAL HIGH SPEED CODE, O=REMOTE LOW SPEED CODE THE STATUS 
1701 :#0F STATS BIT1 DETERMINES WHICH MICRO-CODE W 
1702 :#BE LO KMC. LOOP ON THIS TEST FOR 5 FEW SECONDS 
1703 3470 LOAD THE KMC. 
fai Tht tt did ia dladlalalalalclialaialalalahalalalebalalahalabalaialaiahelatelaieisieielcieisieieisieisleieiels 
1708 ; TEST 2 
1708 022760 012737 op0002 001226 TST2: ov #2, TSTNO 
1709 Oee766 012737 O2e30S2 O0lelé MOV tF8TS NEXT 
1710 :R1 CONTAINS BASE DMC11 ADDRESS 
1711 022774 004737 027012 JSR PC MAPCK = CHECK F OR 
1712 023000 032737 100000 0013tt BIT wBiT1S,STAT! | ;BE SURE CMC HAS CRAM 
1713 023006 001420 BEQ 2g :SKIP IF NO CRAM 
1714 023010 o0So00 CLR RO "RO=CRAM ADDRESS 
i715 O2301e 013702 012320 MOV ROMMAP , R2 :R2 POINTS TO ROMMAP 
1716 O23016 O12711 902000 1$: MOY #BIT10, (RL) SET ROMO 


LOS 


DZDMG MACY11 30(1046) Ll-JUL-77 1le:11 PAGE 37 PAGE: O244 
DZOMG.P11 22-APR-77 09:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 

717 MOV RO,4(R1) LOAD CRAM ADDRESS 
Irie Hoses G12Pe) Baa Roy TRehesbima, FLERD Hi YO GE tare 

| , ; 7 * 
1720 oS 3036 BBs oho INC RO ;NEXT ADDRESS 
1721 023040 O22700 002070 CMP #2000, RO *DONE YET? 
es 023044 presen ae Bs ;BR id pS 
17e8 B535¢8 opsoAy 2s: ck Ope i EERE Tag TEST 
1726 
1727 5 REARRRARRRERERRLEREREREREEE TEST 9 RERRESERRREREEE EERE SELES 
17 s#TEST OF BR RIGHT guyer 
17 ite IFY THAT A DEST OF BR RSH (011) OF A MICRO-INSTRUCTION 
1730 ee HIFTS THE RESULTING BR DATA RIGHT ONCE. 
fe} Peretti t etter tt tet i ttt iitiitititii iii iii iiiii ey 
f 
ies : TEST 3 
tem GEREE Gar ORT BETAS 
17 ;R1 CONTAINS BASE A ei ADDRESS 
1738 023066 104412 MSTCLR : MASTER CLEAR DMC1 
1739 023070 104412 MSTCLR ; MASTER CLEAR BACT I 
1740 023072 013701 001404 MOV DMCSR,R1 ‘RI = DMC BASE AGORESS 
1741 Qe 005011 CLR (R1) : CLEAR SELO 
1742 023100 O1270S oSe2s5e5 MOV a5625 RS : START WITH 125 
1743 023104 010561 000004 MOV 5, 4(R1) sPOR RTY4+1 TH les 
to eats jp aad. vinate 1 . INSTRUCTION, ROMCLK PC=S304 
1746 Bsaits 150300 a LK NEXT IS pee es ROMCLK PC=S304 
1747 023116 061620 061620 ‘BR RSH+BR, SHIFT BR RIGH 
1748 O23i20 104414 ROMCLK ‘NEXT WORD'IS INSTRUCTION, ROMCLK PC=S304 
1749 Ge3lee 061225 061225 ;PORTS+BR 
1750 O231e4% 006005 R RS ies “EXPECTED™ 
1751 O23le6 116104 o090005 MOVB S(R1),R4 **F OUND” 
1752 023132 120504 CMPB RS,RY ‘Do “BR we RIGHT ONCE? 
1753 023124 001401 BEG 1$ 
fa asia 104012 - HLT le ‘BR RIGHT SHIFT ERROR 

i$: 

1756 023140 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, a PC=S3C4 
1757 Qe3l4e 061620 061620 :BR RSH+BR, SHFT BR T’ 
1758 023144 104414 ROMCLK iNEXT WORD’ 1S INSTRUCTION, ROMCLK PC=S204 
1759 023146 061225 061225 TS+BR 
1760 023150 006005 ROR RS RS 5 “EXPECTED” 
1761 023152 1:6104 o00005 MOVB S(R1),R4 
1762 023156 120504 CMPB RS,RY ‘Dio “BR SHIFT RIGHT? 
1763 023160 001401 BEG 23 
1764 Qe3lbe 104012 HLT le ‘BR RIGHT SHIFT ERROR 
oeP 023164 104400 2$: SCOPE : SCOPE THIS TEST 
1767 
1768 jp RRRELSRERRRERRRERERRREREERE TEST 4 RHRRREERER RRR RRRRREREAEEREE 
1783 : #CROI READ TEST 
1770 ;#THIS TEST READS EACH ROM LOCATION AND et. 
1771 #IT TO A SOFTWARE DUPLICATE OF THE CROM. 


THIS T 
1?7e ALSO TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUC fon. 


MOS 


DZDMG MACYL1 3011046) L1-JUL-77 12:11 PAGE 38 PAGE: 024s 
OZOMG.P11  § 22-APR-77 09:29 CROM READ TESTS 

? CROM_P ERS. 

a4 SORE ERP AAU AEGEAN BRERA? 

1776 !MCL1-8R (MB200-YA) 

1777 7 23-414A9 

1778 1% s-dicaa 

1779 1 23-416A9 

1780 i 23-417A9 

1781 1% 3-418A9 

1782 7% a Ag 

1783 1% 23-420A9 

1784 ie 23-421A9 

1785 ;# 

1786 :#DMC11-AL _(M8200-YB) 

1787  % 23-392A9 

1788 1 23-393A9 

1789 # 23-3949 

1790 1 23-395A9 

1791 1% 23-3969 

1792 1% 23-397A9 

1793 tk 23-3989 

1794 ; -399A9 

ie 3 s KERR AAKEA AKA RAAA LA AA ALARA ALARA AAA ASA ALA LAL ARAL AALLALALALE 

1 

1797 ; TEST Y 

1799 023166 012737 OO00004 001226 TST4: MOV TNO 

1800 023174 012737 023362 O0l216 MOV arate NEXT 

1801 Oe3202 012737 O23240 001220 MOV #13, LOCK 

1802 :R1 CONTAINS BASE DMC11 ADDRESS 

1803 023210 104412 MSTCLR *MASTER CLEAR DMC11 

1804 Oe32l2 032737 100000 001366 BIT #BITIS,STATL ;IS IT RAM OR ROM 

180S 023220 001057 BNE 4§ ‘SKIP TEST IF CRAM 

1806 Oe23222 004737 O2701e JSR PC, MAPCK ; CHECK FOR HI OR LO 

1807 023226 005011 CLR (RI) :CLEAR RUN 

1808 023230 013700 012320 MOV ROMMAP, RO RO POINTS TO SOFTWARE ROM MAP 

1809 023234 905002 CLR Re Re CONTAINS ROM ADDRESS BITS 0-7 

1810 023236 005003 CLR R3 R3 CONTAINS ROM ADDRESS BITS 989 IN BITS 11812 

1811 023240 042737 014377 023260 1S: BIC #14377, 2 ‘CLEAR ADDRESS FIELDS OF INSTRUCTION 

18le 023046 050237 023260 BIS Re, 2$ :ADD BITS O-7 TO INSTRUCTION 

1813 O232S2 050337 023260 BIS R3,2$ ;ADD BITS 11812 T0_ INSTRUCTION 

1814 023256 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1815 023260 100400 23: 100400 : JUMP(I) TO ROM ADDRESS IN Re & R3 

1816 23262 012711 002000 MOV #91710 (RL) :SET ROMO 

1817 Oe3e66 011005 MOV (RO) RS ;PUT “EXPECTED” IN RS 

1818 023270 016104 oo0006 MOV 6(R13,R4 *PUT “FOUND” IN RY 

1819 023274 CMP RS,R4 ; COMPARE ROM CONTENTS TO SOFT DUP 

1820 023276 001414 BEQ ‘BR IF 

1821 Oe 010337 001252 MOV R3, TEMP3 :PUT ROM ADDRESS IN TEMP3 

1822 023304 000241 CLC :FOR ERROR TYPEOUT 

1823 Oe 37 oo1es2 ROR TEMPS 

1824 023312 37 001252 ROR TEMP3 

1825 023316 006037 001252 ROR TEMP3 

1826 023322 050237 O01e2S2 BIS Re, TEMPS : TEMP NOW CONTAINS CORRECT ADORESS 

1827 023326 104004 HLT 4 ROM READ 

1828 023330 104401 3S: SCOP1 ‘LOOP TO 5 tr SWO9=1 


NOS 
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DZDOMG.P!1 22-APR-77 09:29 CROM READ TESTS 

1829 023332 005720 TST (RO)+ ;BUMP SOFT POINTER 

1830 023334 005202 INC R2 : BUMP ROM ADDRESS 

1831 G23336 022702 COO0400 CMP #400, Re 15 Re TO MAX YET? 

1832 O23342 001336 BNE 1$ R IF NO 

1833 023344 00500e CLR Ae ‘YES, RESET Re TO 0 

1834 023346 062703 004000 ADD #4000 ,R3 :] NC’ TO NEXT PAGE OF ROM 

183S 023352 O22703 020000 CMP #20006, R3 ; DONE YET? 

1836 023356 001330 BNE 1$ NO. 

+744 023360 104400 4$: SCOPE : SCOPE THIS TEST 

1839 

1840 5 RERRRRERERELEREREREREREREES TEST 5 ReRRRRREEE AER EEE ARES EEE ES 

1841 : #CROM ist ws eg FH ha MICRO-PROCESSOR INSTRUCTION. 

1842 : #PERFORM RUCTION 

1843 : #VERIFY Tat THe TUNE 7 NOT OCCUR BY READING 

1844 ne CONTENTS THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 

a Pitti titi i ttt tit tttt itt ttttt tt ttitttiitttitttitititii 

7 4 ; TESTS 

1849 023362 012737 OO000S 001226 TSTS: Mov #5, TSTNO 

1850 023370 012737 O23SS56 O0lel6b MOV #7576, NEXT 

1851 023376 012737 Oe34¥2e 001220 MOV #1S, LOcK 

18S2 ;R1 CONTAINS BASE DMC11 ADDRESS 

1853 023404 104412 MSTCLR : MAST ER ss. EAR DMC11 

1854 023406 032737 100000 001366 BIT #BIT1S,STATI :1S IT 

1855 023414 001057 BNE 6$+2 : SK KIP Tet iF YES 

1856 023416 004737 027012 JSR PC ,MAPCK : CHECK FOR HI OR LO 

1857 O23422 1$: 

1858 Oe3422 004737 026656 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

1859 O2e3426 104414 ROMCLK XT rad ain JEST TIGR, ROMCLK PC=S304 

1860 023430 1004C90 Me 2 4! ART AT 

1861 Q2343e 104414 OMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

1862 023434 114377 BO ee cHoOKO> ; JUMP TO ROM PC OF 1 

1863 004737 026750 JSR PC ,ROMDAT :RS= EXPECTED ROM BATA. TAMEACTUAL ROM DATA 

1864 O23442 o00002 2 : IND x 

1865 020504 CMP RS,R4 ; ARE NEW PC CONTENTS CORRECT? 

1866 O23446 OO1401 BEQ 2s YE 

1867 O234SO0 104006 HLT 6 ERROR CROM PC IS WRONG 

1868 Oe 104401 2S: SCOP1 LOOP. to. 18 IF SWO9=1 

18S yee 012737 O23462 001220 - MOV #3$, LOCK : NEW 

1871 O2346e 004737 O26656 JSR PC, CLRALL ;CLEAR ALL CONDITIONS 

187 haha 104414 ROMCLK : NEX XT WORD iS INSTRUCTION, ROMCLK PC=5304 

1873 0234 100403 100403 i START AT 

1874 O23472 104414 ROMCLK ‘NEXT WORD ts INSTRUCTION, ROMCLK PC=S304 

1875 023474 100000 109000!<400#0> ;JUMP TO’ROM PC OF 

1876 023476 004737 026750 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 

1877 O2350e2 000010 10 : INDEX 

18 Tea rarer CMP RS,RY : ARE NEW PC CONTENTS CORRECT? 

18 1401 BEG 4§ :BR YES 

1880 023510 104006 HLT 6 : ERROR -, pe Is ~ taiee 

1881 02316 104401 4§: SCOP! LOOP to pfs! F SWO9= 

1882 14 012737 O23S22 O01220 MOV #5$,LOCK : NEW 

1883 023522 Ss: 

1884 023522 004737 O2bbS&t JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
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DZDMG  MACYL1 30(10%6) 11-JUL-77 12:11 PAGE 40 PAGE: 0247 
DZDMG.P11 22-APR-77 09:29 CROM JUMP TESTS 
188S 023526 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
1886 023530 100406 1004 406 ‘START AT ROM PC=6 
1887 023532 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
1888 023534 104125 104125! <400#0> : JUMP TO ROM PC OF Ses 
1889 023536 004737 026750 ISR PC, ROMDAT ?RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
1890 023542 000016 16 - INDEX 
1891 023544 O20504 CMP RS,R4 ;ARE NEW ROM PC CONTENTS CORRECT” 
1892 023546 001401 BEQ os :BR IF YES 
1893 023550 104006 HLT 6 ‘ERROR, CROM Pc IS WRONG 
189% 023552 104401 6S: SCOP :LOOP to S$ IF SW59=1 
189% 023554 104400 SCOPE ‘SCOPE THIS test 
1897 
1898 , RERESERERERERSRLRRRRREREEEE TEST 6 SERRE EEREEEEEER SESE EE EEE ES 
1899 :#CROM TEST OF JUMP(I) ALWAYS MICRO-PROCESSOR INSTRUCTION. 
1900 :#PERFORM THE JUMP INSTRUCTION 
1901 seve THE JUMP BY READING THE CONTENTS OF THE NEK ROM P 
ins s SERASESSERAASALESRELSELARARAEAAARAASAARLAARSSLALE LALLA LLALE 
19305 ; TEST & 
> Sit Chari he eee eee 
19068 023556 012737 000006 001226 TSTb: Mov TNO 
1907 023564 012737 023736 O0lel6 MOV sar NEXT 
1908 023572 012737 023616 001220 MOV #13, LOCK 
1903 ;R1 CONTAINS BASE DMC11 ADDRESS 
1910 023600 104412 MSTCLR :MASTER CLEAR DMC11 
1911 032737 100000 001366 RIT sBIT1S,STATI :IS IT 
1912 023610 001051 SNE 6$+2 :SKIP TEST IF YES 
1313 Ge361e 004737 027012 a ISR PC, MAPCK ‘CHECK FOR HI OR LO 
1915 023616 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1916 023620 100400 100490 :START AT ROM PC= 
1917 923622 104414 ROMCLK ‘NEXT WORD 1S INSTRUCTION, ROMCLK PC=S304 
1918 023624 114777 114377! <400#1> : JUMP TO ROM P 1777 
1919 023626 004737 026750 JSR PC, ROMDAT ; RS=EXPECTED ROM DATA, RY=ACTUAL ROM DATA 
1920 023632 003776 3776 
1921 023634 O20S04 CMP RS,PY ARE NEW PC CONTENTS CORRECT? 
1922 023636 001401 BEQ 2s ; BR F 
1923 023640 104006 HLT 6 ‘ERROR, CROM PC IS WRONG 
1924 023642 104401 2s: SCOP 1 LOOP “to. 18 IF SWO9=1 
1925 012737 023652 001220 MOV #33, LOCK : NEW 
1926 0236S2 3s: 
1927 023652 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1928 023654 100402 100403 START 
1929 023656 104414 ROMCLK WORD IS INSTRUCTION, ROMCLK PC=S304 
1930 023660 100400 100000! <400#:>  ; JUMP To’ ROM C OF 
1931 023662 004737 9026750 ISR Pc. ROMDAtT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
1932 023666 900000 5 : INDEX 
1933 923670 d20504 CMP RS,R4 :ARE NEW PC CONTENTS CORRECT? 
1934 023672 001401 BEG 4§ :BR IF YES 
1935 023674 104006 HLT & :ERROR, CROM PC IS WRONG 
1936 023676 104401 fi 48: SCOP J LOOP to 3$ IF SWO9=1 
1937 023700 012737 023706 901220 MOV 85, LOCK ‘NEW SCOP 
193@ 923706 cs: 
1929 923706 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLA PC=530% 
1940 923710 19040 }OO4O0E START AT ROM Post 
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DIDMG  MACYL] 30: 1046) Ll-JUL-77 le:1l PAGE 41 PAGE: deve 
OZOMG.Pil 22-APR-77 09:29 CROM JUMP TESTS 
1941 QO2371e 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S204 
Be 023714 104S2S 10412S!<«400#1> : JUMP TO ROM PC 
943 023716 004737 026750 JSR PC ,ROMDAT :RS= tthe ROM DATA,RY=ACTUAL ROM DATA 
944 O23722 001252 12S2 
Fe 0237 “agin os toa ARE ne ROM PC CONTENTS CORRECT? 
aus 53556 Podooe "7 ERROR ‘Chon PC. IS. WRONG 
948 023732 104401 tS: SCOP1 -LOOP fo S$ IF SWS9=1 
aca 023734 104400 SCOPE + ECOPE THIS test 
381 
age SESE ERERERERRERSRSREEREREL TEST 7 SERRRSSERELAEEFEEE RESETS ESE 
383 : #CROM TEST a JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION. 


:#SET THE C BIT, PERFORM THE JUMP INSTRUCTION 
— THE JUMP BY READING THE CONTENTS OF THE NEid ROM PC 


RR 
ae 


>= bb bb bs bo bb 8 bo 0 = = bb be bs ho + oo bh oe 


oS s SEESRESSSRERSSELASS SEALS SSSASSELALRASSESELALS SLL LEAS LL APSE 
ra 

358 : TEST 7 

960 023736 012737 000007 001226 TST7: Mov STNO 

91 023744 912737 Oe4i32 O0lei6 MOV rrstig NEXT 

92 023752 012737 023776 001220 MOV #i$,LOtK be 

363 :R1 CONTAINS BASE ONC 1 ADDRESS 

964 o23760 104412 MSTCLR :MASTER CLEAR DMC1 

965 923762 032737 190002 001366 BIT sBIT1S,STAT -IS IT CRAM? 

96 023770 001057 BNE 6$+2 : SKIP TEST IF YES 

967 004737 27012 JSR PC, MAPCK CHECK FOR HI OR LO 

98 023776 18: 

9E5 004737 026724 ISR PC,SETC :SET THE C BIT’ 

970 Oevod2e 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
971 O2e4004 100400 100400 “START AT ROM PC=0 

972 Oce4006 104414 ROMCLK ‘NEXT WORD IS_ INSTR UCTION, ROMCLK PC=S304 
$73 Oe4010 115377 114377! <400#2> : JUMP TO ROM PC OF 1777 

974 Ge40l2 004737 O2675C JSR PC. ROMDAT ; RS=EXPECTED ROM DATA. RY=ACTUAL ROM DATA 
975 Oe4016 003776 3776 : 

976 Oe4020 O20S04 CMP RS RY ‘ ARE neu PC CONTENTS CORRECT? 

1977 De40e2 001401 BEG 3 :BR IF YES 

1978 Oe4024 104006 HLT € :ERROR, CROM PC IS WRONG 

1979 Oe4026 104401 23: SCOP! : LOOP to. is IF SwOS9=1 

1980 Oe4030 012737 o24036 001220 MOV 83$, LOCK : NEW 

1981 024036 3S: 

1982 024036 004737 026724 JSR PC,SETC ;SET THE C BIT" 

1983 Oe4042 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1984 Ge4044 100402 100403 ; START AT ROM PC= zs 

1985 Oev04— 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK FC=S304 
1986 O2e40SO0 101000 100000!<400#2> ;JUMP TO’ROM PC OF O 

1987 Ge40S2 004737 9026750 ISR pc ROMDAtT ; RS=EXPECTED ROM DATA, RY=ACTUAL SOM DATA 
1988 Oe40S6 o00000 5 :] 

1989 024060 CMP RS RY : ARE ne PC CONTENTS CORRECT? 

1990 024062 001401 BEQ 4§ : BR a 

1991 Q24064 HLT 5 ERR CROM PC IS WRONG 

1992 Oe4066 104401 48: SCOP 1 . :LOOP | Pte. 31 IF SWO9=1 

1993 004070 012737 O24076 901220 MOV aS$, LOCK : NEW 

1994 024076 S$: 

1995 Oe407E 004737 026724 ISR Po,SETC :SET THE C BIT’ . 

199% de4102 104414 ROMCLK »NEXT WORD IS INSTRUCTION, ROMCLK PC=S3Cs 
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DZOMG MACYLI 30(1046) Ll-JUL-77 12:11 PAGE 42 PAGE: 0249 
DZDMG.P11  22-APR-77 09:29 CROM JUMP TESTS 
1997 024104 100406 100406 :START AT ROM PC=6 
1998 024106 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
1999 024110 105125 104125! «400%2> : JUMP TO ROM PC OF 
2000 Devi ie 004737 926750 JSR PC, ROMDAT tRSSEXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2001 116 001252 1252 X 
2002 024120 O20S04 CMP RS,RY ‘ORE NEW ROM PC CONTENTS CORRECT? 
2003 Ge'iee 1401 BE et :BR IF YES 
2004 0241 104006 HLT 6 : ERROR CRON, PC IS WRONG 
2005 024126 104401 6S: SCOP1 ‘LOOP to S$ IF SWS9=1 
2008 024130 104400 SCOPE : SCOPE outs test 
2008 
2003 5 RRRRAER ELE RH EEL EEE ERLE REEDS TEST 10 eeHeeeRSSSSEAS SEES EERE TEESE 
2010 : #CROM TEST OF JUMP(I) ON 2 BIT SET NICRO-PROCESSOR INSTRUCTION. 
2911 :#SET THE Z BIT BEREORN” THE JUMP INSTRUCTION 
2912 ee THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 
ss 5 LEEERELSRESRS ESR L PEELS RSLALA SALE SELES ELSLLSSLELA LASSE EL ELALS 
14 
e015 : TEST 10 
2017 O24132 012737 O00010 o01226 TST10: Mov #10. TSTNO 
2018 Oe4140 O1°737 024326 001216 MOV eTSt1i, NEXT 
2019 O24146 012737 Oexi7e 001220 MOV #1$,LOCK iz 
2020 :R1 CONTAINS BASE MCL ADORESS 
2021 o24iS4 104412 MSTCLR MASTER CLEAR DMC 
2022 004156 032737 100000 001366 BIT sBIT1S,STATI :1S IT CRAM? 
2023 024164 001057 SNE 6$+2 :SKIP TEST IF YES 
024166 027012 JSR PC MAPCK ‘CHECK FOR HI OR L 
2025 024172 18: 
2026 024172 004737 O26742 JSR PC,SETZ :SET THE 2 BIT’ : 
2027 O24176 104414 ROMCLK :NEXT WORD als INSTRUCTION, ROMCLK PC=S3C4 
2028 Oe4200 100400 190400 :START AT ROM PC=0 
2029 Devede 104414 mck : NEXT is INSTRUCTION, ROMCLK PC=5304 
2030 115 patti 7'<400#3> : JUMP TO PC OF 1 
2031 O24 004737 026750 ISR PC, ROMDAT =RS=EXPECTED ROM HATA. RUZACTUAL ROM DATA 
2032 Oe4¥2l2 003776 3776 : INDEX 
2033 O24214 O20S04 CMP RS,R4 !ARE NEW PC CONTENTS CORRECT” 
2034 Oe4216 001401 BEQ 2 :BR IF 
2035 Oe4220 104006 HLT é ERROR CRON pc IS WRONG 
2036 Oex222 104401 23: SCOP! :LOOP | to F SWO9=1 
2937 Oe42e4 012737 O24e32 001220 MOV #33, LOCK : NEW Set 
2038 Oe4e32 3S: 
2039 O24232 004737 O26742 JSR PC.SETZ ;SET THE 2 BIT’ 
2040 O2e4e36 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2041 Oe4240 100403 100403 :START AT ROM PC=3 
2042 Oeve4¥2 104414 ROMCLK <NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2043 Oe4e44 101400 100000!<400#3> ;JUMP TO’ROM PC 
2044 Oe424— 004737 026750 ISR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2045 Se42S2 000000 0 : INDEX 
2046 Oe4254 O20S04 CMP RS RY !ARE NEW PC CONTENTS CORRECT” 
2047 Oe4256 001401 BEG 4§ :BR IF YES 
204e 260 104006 HLT & ERROR CRON PC. 1S_WRONG 
2049 Oe¥ete 104401 4S: SCOP 1 :LOOP | to. 331 WO9= 
20S0 Oe4264 012737 Oe4272 001220 MOV #5$, LOCK : NEW 
2051 de4e72 S$: 
2052 Oe4272 004737 d2t74e2 ISR PC,SETZ ;SET THE Z BIT" 
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DZDNG — MACYLL 30(1046) 11-JUL-77 12:11 PAGE 43 PAGE: 0250 
DIDMG.P11 22-APR-77 09:29 CROM JUMP TESTS 
2053 024276 104414 ROMCLK : NEXT WQRO IS INSTRUCTION, ROMCLK PC=5204 
2054 024300 100406 190406 START 8 T ROM PC=6 
2055 024302 104414 ROMC : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2056 024304 105525 touies! «40083» : JUMP TO ROM PC 
2057 024306 737 026750 ISR PC, ROMDAT LASSEXPECTED ROM DATA,RY=ACTUAL ROM CATA 
2058 024312 001252 1252 
2059 024314 d20S04 CMP RS,RY ARE neu ROM PC CONTENTS CORRECT? 
2060 024316 901401 BEQ 6$ ‘BR IF 
2061 024320 104006 HLT 6 SERROR, CRON PC IS WRONG 
2062 024322 104401 6S: SCOP LOOP to” S$ IF SWS9=1 
2963 024324 104400 SCOPE ‘SCOPE THIS TEST 
Soe 
e0ss ; RRRERERERLRRERAERRERRAREREHE TEST 1] SERRE RREEE ESLER REESE SESE ES 
2067 :#CROM TEST OF JUMP(I) ON BRO SET MICRO- PROCESSOR INSTRUCTION. 
2068 !#SET THE BRO BIT, PERFORM THE JUMP INSTRUCT 
2069 sevERIFY THE JUMP’BY READING THE CONTENTS OF oe NEK ROM PC 
Spe 5 RERSSSRERESASLE SEE SAAR LA AER SAAAALE AAA SAA SARLALAALALL LF RAL LLEL 
207¢ ; TEST Ll 
2074 024326 012737 000011 091226 TST11: Mov #11, TSTNO 
2075 024334 012737 O24522 OO1216 MOV 8TSti2, NEXT 
2076 Oe4342 0120737 Oe4366 001220 MOV #13, LOCK 
2077 :R1 CONTAINS BASE DMC11 ADDRESS 
2978 O2435C 104412 MSTCLR :MASTER CL EAR ONC1I 
2079 0243S2 032737 100000 001366 SIT sBIT1S,STATL ‘IS IT CRAM 
2080 024360 001057 BNE &$+2 :SKIP TEST IF YES 
2081 024362 004737 0270: ISR PC, MAPCK :CHECK FOR HI OR LO 
2082 024366 f 1S: 
2083 024366 004737 026674 JSR PC, SETBRO :SET THE BRO BIT’ 
2084 024372 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2085S 924374 100400 100400 :START AT ROM PC= 
2086 024376 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2087 Oe4400 116377 114377! <400%4> :JUMP TO ROM PC OF 177 
2088 O24402 004737 026750 JSR PC, ROMOAT ; RS=EXPECTED ROM DATA.RY=ACTUAL ROM DATA 
2089 Oe4406 003776 3776 
2090 024410 O20S04 CMP RS,R4 ARE NEW PC CONTENTS CORRECT? 
2091 Oe4v412 001401 BEQ 2s BR IF YES 
2092 024414 104006 HLT 6 ;E CROM PC IS WRONG 
2093 Oe4416 104401 2s: SCOP :LCOP_ fo. 18 IF SWO9=1 
2094 Oe4420 012737 oe4426 001220 MOV #3$, LOCK ‘NEW Sc 
2095 Ge44e6 3S: 
O24426 004737 026674 JSR PC, SETBRO :SET THE BRO BIT’ 
2097 Dey43e 104414 ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2098 024434 100403 :START AT ROM PC=3 
2099 024436 104414 OMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2100 Oe4440 ROOoHO! «4O084> - JUMP TO'ROM PC 
2101 Oewwe 004737 026750 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2102 OewH46 o00000 0 x 
2103 Oe44SO O2e0S04 CMP RS,RY ORE NEW PC CONTENTS CORRECT? 
2104 Oews2 001401 BEG 43 :BR IF YES 
2105 Oe44s4 104006 HLT 6 ?ERROR, CROM PC IS WRONG 
2.06 Desist 1044 7 « 48: SCOPI LOOP to. 3 IF SWO9=i 
2107 Oew#e0 012737 oc244ee 01220 MOV #5$, LOCK :NEW S 
2156 Xde44ee c$: 
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CROM JUMP TESTS 


6$: 


TSTle: 


1$: 


2s: 
3$: 


4§; 
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R PC, SETBRO Set THE BRO BIT’ 
BehicL 7 HeRe s Ihsrruction, ROMCLK PC=S304 
1 OONDe STAT AT ROH PC = 
ROMCLE ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
104125! <400#4> : JUMP TO ROM P 
IR, C,ROMDAT RS S=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
che Rs, Re ARE NEW ROM PC CONTENTS CORRECT’ 
Beg E Bead “efor Pc IS WRONG 
SCOP Loop to S$ IF SwWS9=1 
COPE +E OOPE THIS TEST 


s ERREREEREAREA PEER LE LEE LE ERE TEST 120 SHeRRRESSRLA SESE SL ERSTE SESE 
:#CROM TEST OF JUMP(I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 
-#SET THE BRI BIT, PERFORM THE JUMP INSTRUCTION 
: #VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 
; SPREE ERSEREEEEEEEERALSEES EASE ELAEAELERESES ELE ELS EEE SS 


; TEST 12 
MOV #12, TSTNO 
MOV 8TST13, NEXT 
MOV #13, L0tK 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR :MASTER CL EAR DMCLI 
SIT sBIT1S,STAT 1S IT 
SNE 6$+2 ‘SKIP TEST IF YES 
JSR PC, MAPCK -CHECK FOR HI OR LO 


JSR PC, SETBRI 


;SET THE BRI BIT 
BEX Hoe AS INSTRUCTION, ROMCLK PC=5304 


100430 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
}U4377! 40085» : JUMP TO ROM PC OF 1777 : 
oR Pc ROMDAT :RS= SEXPECTED ROM DATA, RY=ACTUAL ROM DATA 
f 
CMP RS,RY ‘ARE NEW PC CONTENTS CORRECT? 
BEO 2 :BR IF Y 
HLT ?ERROR, CROM PC IS WRONG 
SCOP1 :LOOP to 1$ IF SWO9=1 
OV 83%, LOCK : NEW SCOP] 
JSR PC, SETBRI :SET THE BRI BIT’ 
ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100403 :START A 
ROMCLK : NEXT S INSTRUCTION, ROMCLK PC=5304 
1OCOG0!<400#5>  ; JUMP TO ROM PC 
SR PC. ROMDAS s RSE NPECTED ROM DATA,RY=ACTUAL ROM DATA 
CMP RS.R4Y ‘ae NEW PC CONTENTS CORRECT? 
SEQ 4§ :BR IF Y 
HLT t : ERROR CROM PC_IS_WRONG 
SCOP! Pio. 3 IF swOs=] 
MOV 85$, LOCK hen ScoP 
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DIDMG MACY11 30(1046) Ll-JUL-77 12:11 PAGE 45 PAGE: 
DIDMG.P11 22-APR-77 09:29 CROM JUMP TESTS 
l S$: 
318 BS4PPS 004737 026792 JSR PC, SETBR1 :SET THE BR1 BIT’ 
2167 Oe4666 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2168 Oe4670 199406 100406 iSTART T ROM PC=6 
2169 Oe4672 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2170 Oe4674 1065 104125! «400#5> : JUMP TO ROM P 
e171 676 004737 926750 ISR PC ,ROMDAT ;RS= XPECTED ROM DATA,RY=ACTUAL ROM DATA 
217. 702 00125. 1252 X 
2173 Oe4704 O20S04 CMP RS.RY ARE NEW ROM PC CONTENTS CORRECT? 
2174 Oe4706 001401 BEQ 6$ :BR IF YES 
2175 024719 104006 HLT 6 ; ERROR CROM PC. IS. WRONG 
2176 Oe4712 104401 6S: SCOP! LOOP. To 3 IFS 9=1 
3177 Ged714 1o4Hod SCOPE ‘eC OpE Put a 
ae 
21980 ; REREHLEERALESERRAEREEEAEEERE TEST 12 SEPRSEELEREEE LESSEE ESTE SESS 
2181 ?#CROM TEST OF JUMP(I) ON BRY SET NICRO-PROCESSOR INSTRUCTION. 
2182 #SET THE BRY BIT, PERFORM THE JUMP INSTRUCTION 
2193 pea THE JUMP’BY READING THE CONTENTS OF THE NEW ROM PC 
tt: s RERRRERSSAALASSLEA SALA ASSRA LAL AELA ELA L SALAS SAL LALRRAAL ALLELES 
ite} ; TEST 13 
3188 024716 012737 900013 o0l1226 TST13: Mov #13, TSTNO 
189 9204724 012737 Od2Sile lel6 MOV aTSt14, NEXT 
2130 024732 012737 O24756 001220 MOV a8, Lotk 
191 ;R1_CONTAINS BASE DMC11 ADDRESS 
2:92 924740 104412 MSTCLR MAST ER CLEAR OMC11 
2193 Oe%74e 032737 100000 001366 SIT #BIT1S,STATI :1S IT CRAM? 
2194 024750 001057 BNE 6$+2 :SKIP TEST IF YES 
2195 Oek7S2 004737 O270i2 JSR PC, MAPCK :CHECK FOR HI OR LO 
2196 024756 1S: 
re aie] ooeaid _—s ROrC K dsc xT THGRD. 15 INSTRUCTION, ROMCLK PC=S304 
LULA =5 

size oSures | toguad fits i, FRO Peso 
2200 Oe4766 104414 ROMCLK : NEXT "ORO IS INSTRUCTION, ROMCLK PC=S204 
2201 024770 117377 114377! <400%6> : JUMP TO ROM PC OF 1777 
2202 024772 004737 926750 JSR PC ROMDAT :RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2203 776 003776 3776 : INDEX 
2204 25000 0SO4 CMP RS RS "ARE NEW PC CONTENTS CORRECT? 
2205 OeS002 1401 BEQ 2 :BR IF YES 
2206 O25004 104006 HLT 6 : ERROR CRON pc Is WRONG 

? Se5008 O44 2s: SCOP 1 LOOP to F SWO9=1 

1 1272? O2501& 001220 MOV #3$, LOCK : NEW gots 
2209 025016 38: 
2210 025016 004737 O26710 JSR PC, SETBRY ;SET THE BR4Y BIT’ 
2211 OeSd22 104414 ROMCLK NEXT als INSTRUCTION, ROMCLK PC=5304 
ele desde 100403 190403 :START AT R Cz3 
513 1O4a 14 ORCL wposs) JUMP TO" NEXT WORD fe ING RUCTION, ROMCLK PC=5304 
¥¢ #6> 

sstz Teepe 004737 026750 420 PC ROMDAT :RS= NE KPESTED ROM DATA.RY=ACTUAL ROM DATA 
2216 000000 i INDEX ae hs 
ee) 020504 CMP RS,RY NEW PC CONTENTS CORRECT? 
2218 001901 BEG 4§ :BR IF YES 
2219 025044 10400€ HLT & :ERROR, CROM PC IS WRONG 
2220 O25046 1O4401 4$; SCOP! :LOOP fo 3$ IF SswOS=1 


OZOMG 
DZOMG.P11 

2221 025050 
2255 02S0S6 
2226 025066 
e227? 0eS070 
2228 025072 
2223 025076 
2230 025100 
com lee 
e234 025110 
2235 

ce3t 

a 

2239 

2240 

ec4l 

2242 

2243 

2244 

e245 O2Sile 
224% 025120 
2247 OeSl26 
2248 

2249 025134 
2eSO 025136 
2251 025144 
2e2Se 025146 
2eeS3 025152 
2254 025152 
22SS 025156 
2eS& 025160 
2eS7 025162 
2258 025164 
2259 025166 
e260 0eS17e 
2c61 025174 
2eebe 025176 
a 025200 
SSee BSe5pq 
oe peoste 
S5e BSesie 
3 ieee 
sory eeo54 
e27e 

2273 3e 
ec74 OeSe34 
2275 OeSe36 
e276 OeS240 


MACY11 30( eS 
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012737 


104400 


012737 
012737 
012737 


025056 901220 


026710 


026750 


026716 


026750 


O2S2le 
026716 


026750 


11-JUL-77 
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CROM JUMP TESTS 
S$: 
6$: 
00122 TST14: 
001216 
O0i2e 
001366 
1$: 
es: 
021220 
3$: 


104 


MOV #S$, LOCK 
i3R PC, SETBRY 
MCLK 
og 
ROMCLK 
104125! <400#6> 
JSR PC ,ROMDAT 
hepe 
C RS,R4 
BEQ - 
Edy 
SCOPE 


;NEW SCOP 


SET T 4B 

i REXT HERB ts }NSTRUCTION, ROMCLK PC=S304 
START AT PC= 

: NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
‘JUMP TO ROM PC 0 

s RS=EXPECTED ROM DATA,RY=ACTUAL ROM DAT 
eat Ron PC CONTENTS CORRECT? 


iz BEOR, Qh P15 MAONG 


SCOPE THIS TEST 


; RHERRREAEAASSELALAA AREAL ELE That AY SRKKAASLAELARLA REA FRA LLLAAS 


:#CROM TEST 
;*#SET THE BR7 BIT, 


FORM 
even THE JUMP’ BY READING NF He CONTENTS OF 


OF JUMP(1) ll ae 


1CRO-PROCESSOR INSTRUCTION. 
JUMP INSTRUCT 
ioe NEW ROM PC 


s EEESHRERRAAAAL SRA LELASAALLAALASAA LEA SRL ESLA LL FELL LALA RERSRARES 


; TEST 14 

MOV #14, TSTNO 
MOV eTStiS NEXT 
MOV 81$,L0CK 
MSTCLR 

BIT #BIT1S,STATI 
BNE + 

ISR PC , MAPCK 


JSR PC ,SETBR7 
ROMCLK 
100400 


ROMCLK 
114377! <400#7> 
PC RO 


JSR MDAT 

377 

CMP RS,RY 

BEG ey 

HiT 5 

SCOP 

MOV #3, LOCK 

15k PC, SETSR7 
CLK 

100403 

ROMCLK 

100000! <400#7> 

SR PC. ROMDAT 

CMP RS, RY 

BEG 43 

HLT 


;R1_ CONTAINS BASE pes ACDORESS 

;MASTER CLEAR DMC11 

;IS_IT_CRAM? 

;SKIP TEST IF YES 

;CHECK FOR HI OR LO 

;SET_THE BR7 3 ie 

pe a ie NSTRUCTION, ROMCLK PC=5304 


T PC= 
;NEXT WORD IS ANS TRUGT ION, ROMCLK PC=S5304 
; JUMP TO ROM PC 
:RS=EXPECTED ROM bata, R4Y=ACTUAL ROM DATA 


: INDEX 
ne NEY pC CONTENTS CORRECT” 
: ERROR CRON pc Is WRONG 
LOOP to, to 1$ I F SWO9=1 


T 
REXT TWRB is INSTRUCTION, ROMCLK PC=S304 
START AT ROM PC= = 
"NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


- JUMP TO ROM PC OF 0 


om ROM DATA,RY=ACTUAL ROM DATA 
sARE NEW P PC CONTENTS CORRECT” 
TERROR, CROM PC Is WRONG 


DZDMG 


DZOMG.P11 


MACY11 30(104%6) 
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ih = sn 


7 
012737 
104412 
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02S2Se 
026716 


026750 


026750 


025406 


37 Oeb6SE 


026750 


001220 


O0lee6 
001216 
00iee0 


001366 


001229 


PAGE 47 


4$: 
S$: 


6$: 


TSTLS: 


1§: 


2$: 
3$: 


T04 


PRGE: 
: F = 
Ay: ess, Lock Rear ck Bpys TF SMO9=2 
Rone K scogsstanee TET WORD. S NSTRUCTION, ROMC 2 
K PC=S204 
Rab Sau alg PSIRTIN. Rover esa 
N » 204 
BUTE: «yooe7> HERR oA? —s 
+ RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATS 
che RS ,RM as ROM PC CONTENTS CORRECT? 
HLT :ERROR, CROM PC IS WRONG 
SCOP :LOOP to S$ IF SW59=1 
SCOPE ‘SCOPE THIS TEST 
j Rapeuet® HERLERLAALELLELE SLES al set” sasstsssnsessnedsasssseesse 
; #CROM TEST OF JUMP(I) ON C8 pia PROCESSOR INSTRUCT! 
*CLEAR THE C BIT, PERFORM 


UITRE COnTths HE LEP Bi a tb leven oy cre 


: PAS REEE LER ERALELEEEESESEREALEREERE EERE EEES SEES EERE EEE T ETE Et 
; TEST 15 


Mov #15 TSTNO 
MO 


NOV afgt ie NeXT 

:R1 CONTAINS | BASE ONC!1 ADDRESS 
Sr ITIS,STATL pg Saintes, 
NE Hee : 18 p7 reer t IF YES 


;CHECK FOR HI OR LO 


RET WORD 18 1S IRB TATION, ROMCLK PC=S304 


Hone, BE YER TION NO Peas 
JSR PC ,ROMDAT 


‘as SZEXPECTED ROM DATA, RY=ACTURL ROM DATS 


JSR PC ,MAPCK 
Ml R PC, CLRALL 
LK 


° 

MP RS RY ORE neu pc CONTENTS CORRECT” 

BEG Fx i RY 

HLT « RROR "eon pc 1S WRONG 

SCOP1 ; sLOOP to. i$ 1 F SWOS=! 

MOV #3$, LOCK NEW 

J PC, CLRALL 

RONCLK RENT T MORO 1S 1S OPS TRUS SION, ROMCLK PC=5304 
100403 START 8 PC= 


Ronee : NEXT uoRo” S INSTRUCTION, ROMCLK PC=5304% 
1 *<400#2> ;JUMP TO'ROM PC OF 
13 PC. ROMDAT Bis 3 XPECTED ROM DATA, RY=ACTURL ROM DATA 


l 
CMP RS,RY TARE NE PC CONTENTS CORRECT” 


DZOMG 


DZOMG.P11 


MACY11 30(1046) 


12737 


004737 
104414 


O2S4Se2 
wo 109418 


105125 


che 
39= 90° 
BER? Ran 
GHIS Yaa 


io 
it: 
rs = a) 


g 


O2S446 
026656 


026750 


Bee 
100000 


027012 
026656 


026750 


o2se0e 
O2bESE 


026750 


L1-JUL-77 
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001220 


Bis 


001366 


001220 


le:11 
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CROM JUMP TESTS 


4§$: 
S$: 


6$: 


TSTI6: 


1$: 


2$: 
3$: 


JO4 


ro 

SCOP 1 
MOV #S$, LOCK 
JSR PC, CLRALL 
ROMCL 
A006 

MCLK 
104125! <400#2> 
{eR PC ,ROMDAT 
MP RR Re 

EQ 6 
HLT 6 
SCOP 1 
SCOPE 


PRGE: 


iPRRdR ‘thon PC_15_ WRONG 
sL00P to. 38 IF SwO9=1 


;CLEAR ALL CONDITIONS 
ara S INSTRUCTION, ROMCLK PC=S204 


"7 the PRucTION, ROMCLK PC=S304 
June TO R R OF SeS 
; CTED & DATA,RY=ACTUAL ROM DATA 
ARE NEW_ROM PC CONTENTS CORRECT” 
BR 4 YES 
CROM PC IS WRONG 


iEeOP a S$ IF SW59=1 
:SCOPE THIS TEST 


; RRERERER ELAR EERE REE EEE EEE EE TEST 16 SHRERERRERAE SELES EERE TERS 


:¥CROM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 
ARR EE Pee TUNE DIO nor SRCUR BY RESDING 
aT CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 

+ RELERRERALAERA REALE A SEARLS RARER ALEEALERLLS RATA ELLER LAAT ESET TS 
; TEST 16 
hov #16, TS TSTN 
mov Heri? 3 NEXT 

:R1 CONTAINS BASE DMC LL ADDRESS 

MSTCLR sMASTER oabea DMC11 
BIT #81715, STATI . 
BME BR *apc Sue, ES) If At OR LO 
sR PC, CLRALL sCLEBR Al CONDITIO Ns 

CLK sf k ais in INSTRUCTION, ROMCLK PC=5304 
RACER, a hex RENT wro me SARSYRUCTION, ROMCLK PC=S304 
JSR "PC, ROMDAT ;RS= yPECTED ROM opaTa. RY=ACTUAL ROM DATA 
CHP BS, RY ARE NEW PC CONTENTS CORRECT? 
pre ‘EAR OM PC IS WRONG 
SCOP ‘LOOP fo is IF SWwO9=1 
MOV #3$, LOCK :NEW SCOP 1 
JSR PC, CLRALL CLEAR ALL CONDITIONS 
RONCLK See WORD IS INSTRUCTION, ROMCLK PC=5304 
2 ein a oe nex Taro"? Pe The ¥eucTION, ROMCLK PC=S304 

< ) 

ISR PC ,ROMDAT :RS= EXPECTED ROM DATA, RY=ACTUAL ROM DATA 


oO 


aw 


DZONG 


DZOMG.P11 


Uy YP YY YY YY yyy 
DONMUIE Wt 


Sco 


e421 
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018737 


012737 


O2Sb4e 001220 


026656 


026750 


025776 
026656 
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001816 


001220 


001366 


001220 


l2:11_ PAGE 


49 
CROM JUMP TESTS 


4§: 
S$: 


6$: 


TST1?: 


1$: 


es: 
38: 


KO4 


+ ot 


#5$,LOCK 
PC, CLRALL 


core broat 
ee 


xh 


PAGE: 


: INDEX 
; ARE NEW BC CONTENTS CORRECT? 
ERROR CRON pc IS WRONG 
‘LOOP to F SWO9=1 
:NEW SCOP 
:CLERR ALL CONDITIONS 
XT WORD Is INSTRUC ION, ROMCLK PC=S304 


sSTART 8 
T WORD IS INSTRUCTION, ROMCLK PC=S304 


ET ROM bate R=ACTURL ROM DATA 
ta es ROM PC CONTENTS CORRECT” 
EROM PC WRONG 


ae Epler 


s RERERRRERRERRRERARAREREERER TEST 17 2ReRRRAEREEEREER ES ELE ELE SEE 


; #CROM nTGSt OF Ceo eer Deprobe 


;#THE CONTENTS OF THE NE 


ON BRO Wey UME INSTRUCTION, INSTRUCTION. 


JUMP BION NOT OCCUR BY READING 
W ROM PC(IT SHO 


ULC INCREMENT BY ONE). 


5 RSRARSRARE LALLA LSLA RELA AA ARALASLAARELAAALAARALALALERAL ALLEL ELL 


; TEST i7 


118, LoéK 


PC , MAPCK 
PC, CLRALL 


OMCLK 
} 4377! <4O0#4> 
PC ,ROMDAT 


RS,RY 
53 

= 

MOV #3$, LOCK 
PC, CLRALL 


TSTN 
MOV 4et28 XT 


#BIT1S,STAT1 
6$+2 


;RL_CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMC11 

31S IT CRAM? 
SKIP TEST IF YES 
;CHECK FOR HI OR LO 


;CLEAR ALL CONDITION 
5 XT Wo Aa NSTRUCTION, ROMCLK PC=S304 


iota 
T WORD IS eANSTRUCTION, ROMCLK PC=5304 
BEE ROM DATA,RY=ACTUAL ROM DATA 
iHeu pe CONTENTS CORRECT” 


Sans Fonte 


sCLEAR ee , cOnD I TIONS 
NEXT a a iS prs! TION, ROMCLK PC=S304 
ART AT R 


NEXT WORD 1s INSTRUCTION, ROMCLK PC=5304 


O2Sé 


DZDMG 


DZOMG.P11 


MACY11 30( 1046) 
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Sag2 BSEBI9 A699? oze7s0 
24 000010 


026114 


REARS ARE RRR N SOR 
FNNEROK LE EOORNAR Lo 


1401 
104 


104401 
012737 


004737 
104414 
06 


012737 
012737 
012737 


104412 
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4§$: 
026036 001220 a 
026656 ; 
026750 

6$: 
000020 001226 TST20: 
026266 O01216 
026132 001220 
100000 001366 
027012 

1$: 
026656 
026750 

2s: 
026172 001220 mu 
O2665E ; 


CROM JUMP TESTS 


LOY 


PAGE: 


18 dro - JUMP 70. R m sesbett : 
TED ROM DATA,RY=ACTUAL ROM DATA 

Ao RS. LRY Neu PC CONTENTS CORRECT? 

BEQ i IF YES 

HLT 6 ‘ERROR, CROM PC IS WRONG 

SCOP 1 ‘LOOP to, 38 IF SWO9=1 

MOV #5$, LOCK !NEW SCOP 

ISR PC, CLRALL i CLEAR ALL CONDITIONS 

ROMCLK T WORD IS INSTRUCTION, ROMCLK PC=S304 

100406 :START AT ROM PC=6 

ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 

104125! <400%4> : JUMP TO ROM PC OF Ses 

ISR PC, ROMDAT RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 

CMP RS,RY ARE NEW ROM PC CONTENTS CORRECT? 

BEG 6$ BR IF YE 

HLT 6 ‘ERROR, CROM PC IS WRONG 

SCOP : LOOP Pty S$ IF SWS59=1 

SCOPE ‘SCOPE THIS TEST 


5 RRRRRRREKLERRRERERRRRERAEEE TEST OD SHRRERREEREREE SHEE EE SEES EES 
: #CROM TEST OF JUMP(I) ON BRI SET MICRO-PROCESSOR INSTRUCTION. 


:#CLEAR THE BR1 BIT PERF ORM THE JUMP INSTRUCTION, 
j#VERIFY T HAT THE JUMP DID NOT OCCUR BY READI 
; #THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
s RERERARASRARA RARE LAARARAASAAARARALSRERAAAAARSAA RSLS EELS LELES 
; TEST 20 
Mov #20, TSTNO 
MOV arotel NEXT 
MOV #1$, LOCK 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR aia anal : MASTER CLEAR OMC11 
NE aegis : 18h reefs IF YES 
JSR PC, MAPCK ‘CHECK FOR HI OR LO 
JSR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
100400 :START AT ROM PC 


C=0 
jNEXT WORD IS ANB TRUCT ION, ROMCLK PC=S304 


ROMCLK 
114377! <400#5> ;JUMP TO ROM PC 
JSR ;RS=EXPECTED ROM ATA, R4Y=ACTUAL ROM DATA 


PC, ROMDAT 
2 : INDEX 
CMP RS,R4 :ARE NEW PC CONTENTS CORRECT? 
BEQ 2g :BR IF YES 
HLT : ERROR CRON PC IS WRONG 
SCOP 1 : LOOP tor $ IF SWO9=1 
MOV #3$, LOCK :NEW SCO pi 
SR PC, CLRALL ;CLEAR ALL CONDITIONS 
ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


eee ee - —_— - - ~e=0 -- 


0257 


DZDMG 


DZOMG.P11 


ee 


—ODONMU£WM-O 


BAER 
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1401 
A 
104401 
012737 


004737 
104414 


100406 
104414 
106525 
Bt 

16 
020504 
001401 


104006 
104401 
104400 


012737 


a18737 


012737 


026750 


026232 
026656 


026750 


000921 
64be 
6326 


100000 
02701le 
O266S6 


026750 


026366 


11-JUL-77 


001220 


001226 


001220 


le:11 
CROM JUMP TESTS 


PAGE 5S] 


4$: 
S$: 


6$: 


TSTel: 


1$: 


2$: 
3$: 


MO4 


0403 

MCLK 
100000! <400#5> 
ISR PC ROMDAT 
CMP RS,RY 
BEQ 4§ 
HL 
SCOP 1 
MOV #5$, LOCK 
JSR PC, CLRALL 
ROMCLK 
100406 
ROMCLK 
104125! <400*5> 
SR PC, ROMDAT 
CMP RS,RY 
BEQ 6$ 
HLT 
SCOP1 
SCOPE 


PAGE : 


sa TART AT ROM PC= 
: NEXT Ho S INSTRUCTION, ROMCLK PC=S304 


:RS= XPECTED ROM DATA,RY=ACTUAL ROM DATA 
ieee NE PC CONTENTS CORRECT? 

BROR ROM pe IS WRONG 
: LOOP P10, F SWO9=1 
NEW SCO 


an ALL CONDITIONS 
s NEXT a IS INSTRUCTION, ROMCLK PC=S304 
START A PC= 


T RO 
*NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
;JUMP TO ROM PC OF SeS 
;RS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 


ORE NEW ROM PC CONTENTS CORRECT? 
‘ERROR, CROM PC IS WRONG 

: LOOP ae S$ IF SWS59=1 

‘SCOPE THIS TEST 


. JUMP TO'ROM PC 0 


poten teat ae nett? an, oe "et Ol RRR RERE AER R REESE ES NEES 


;*#CROM TEST OF J 


Ee TE FP Be 


ere tion INSTRUCTION. 


ON BRY 
perro R THE. Une ay Beepinee 


ne CONTENTS OF a NEU PROM PC( iT SHOULD INCREMENT BY ONE). 
5 HEARSE ARR SEE AEE SEE EE EEE EERE EEE EAE AE EER RARE EEE ERTS 


s TEST 21 


Mov #21, TSTNO 
MOV #TSt22, NEXT 
MOV #15, LOCK 
aB1TIS, STATI 
ISR PC , MAPCK 

JSR PC, CLRALL 


pony 

114377! <400#6> 
gm PC ,ROMDAT 
CMP RS,R4 

BEG es 

HLT 

SCOP 1 

MOV #33, LOCK 


-- eee ee 


Rl CONTAINS BASE DMC11 ADDRESS 
iM MAS SP eae DMC11 


Pp. TEST IF YES 
!CHECK FOR HI OR LO 


;CLEAR ALL CONDITIONS 
‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
i START AT ROM PC=0 
T WORD IS INSTRUCTION, ROMCLK PC=5304 
UMP 10 ROMP OF 1 
;RS= S=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
ORE NEW PC CONTENTS CORRECT? 
:BR IF YES 
: ERROR CRON PC. IS WRONG 

P01 SWwO9=1 
ine 


0esé 


NOY 


MACY] O46) Ll-JUL-77 le:1 PR 2 PAGE: G2es9 
RSBRe pat 43861036 ogi ds bron FinB TESTS 
2557 026366 iieate 026656 a PC, CLRALL Ig at. CoE ETRUCTION, Le PC=6204 
Seee ASPaG kidd Aatatak iSTaRT RoR Cs3 — 
2560 026376 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
2S61 O26400 103000 1N0000!<4OG#6> ;JUMP TO’ROM PC OF 0 
eSbe Oe6402 004737 026750 . JSR PC, RomDAtT jRS= EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2563 026406 000010 10 
2564 026410 d20504 ; CMP RS,R4Y ‘ARE NEW PC CONTENTS CORRECT? 
2S6S Oeb4le 001401 BEQ ~F :BR IF YES 
2S66 O26414 104006 HLT 6 : ERROR CROM PC IS WRONG 
2567 026416 104401 4$: SCOP . ‘LOOP to 3$ IF SWO9=1 
eS68 Oe642e0 012737 Oe2b426 001220 MOV #5$, LOCK ;NEW SCOP1 
2569 Oeb426 cs: 
026426 004737 026656 JSR PC ,CLRALL be ALL CONDITIONS 
257 beet 104414 yen T WORD IS INSTRUCTION, ROMCLK PC=S304 
2s 4 100406 100406 ig ART AT ROM PC=6 
2573 O26436 104414 ROMCLK : NEXT WORD 'S INSTRUCTION, ROMCLK PC=5304 
2574 Oeb44O 107125 104125! <«4O00#6> ; JUMP TO ROM PC OF SeS 
oe Oeb44e viakef 026750 ta PC ,ROMDAT : RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
5258 nates pope ae bp RS,RY sTROEX ROM PC CONTENTS CORRECT? 
2578 Oeb4S2 O01401 BEQ 6$ ‘BR IF YES 
73 O264S4 104006 HLT 6 sERROR, CROM PC _IS WRONG 
0264 194401 6S: SCOP! ‘LOOP fo S$ IF SW59=1 
soak O26460 104400 SCOPE ;SCOPE THIS TEST 
2583 
2S84 ; SERRRERESRERELEEREREREEREEE TEST CO SHRPRREPRESERREE REEL ET EDES 


; #CROM TEST OF hee ON a T pga a Ss INSTRUCTION. 


2586 '#CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 
2587 sAVERIEY THAT THE JUMP DID NOT OCCUR BY READING 
3g #THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE). 
so 5 REALE EEA ESE R EEE A REAR AEEERAEE ES ER ERR ELE EERE EEE EEE 
seal : TEST 22 
2593 Oeb462 012737 O00022 001226 TST22: Mov #22, TSTNO 
2594 O26470 010737 903364 OOlel6 MOV #. EOP. NEXT 
2595 026476 012737 OebSe2 001229 MOV #15, LOCK 
2596 ;R1_ CONTAINS BASE DMC11 ADDRESS 
2597 026504 104412 MSTCLR MAST ER CLEAR DMC11 
2598 026506 032737 100000 001366 BIT sBITIS,STAT T IT CRAM? 
2599 026514 001057 BNE b$+2 ‘SKIP TEST IF YES 
2600 Sebo 16 004737 O27012 ” ISR PC, MAPCK :CHECK FOR HI OR LO 
2602 Oe6S22 004737 O2bb5é JSR PC, CLRALL ; CLEAR ALL CONDITIONS 
2603 Oebeeb 104414 ROMCLK NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
2604 530 100400 100400 ‘START A 
2605 O26532 104414 ROMCLK :NEXT won 1S INSTRUCTION, ROMCLK PC=5304 
2606 026534 17727 pias77! <ugoe” ‘JUMP TO ROM P 
2607 026536 737 026750 SR PC RO! HASSEXPECTED ROM DATA. R4Y=ACTUAL ROM DATA 
2608 O26542 o00002 2 tI 
2609 S44 CMP RS,R4 : ARE NEW PC CONTENTS CORRECT? 
2610 S46 atte BEQ 23° :BR IF YES 
2611 O265S0 104006 HLT 6 : ERROR CRON pC IS WRONG 
able O26sS2 104401 2$: SCOP! ‘LOOP to F SWO9=1 


BOS 


DZDNG -MACY1I 391046) L1-JUL-77 12:11 PAGE 53 PAGE: 260 
DIDNG.P11  § 22-APR-77 09:29 CROM JUMP TESTS 
3613 Oebssy 012737 Oe6562 001220 - MOV #3$, LOCK :NEW SCOP1 
2615 O26S62 004737 O2b6S6 ISR PC, CLRALL CLEAR ALL CONDITIONS 
obig 026556 104414 ROMCLK T WORD IS INSTRUCTION, ROMCLK PC=S304 
2617 026570 100403 100403 i OFART A ROM PC=3 
2618 O26S572 104414 ROMCLK : NEXT WORD IS INSTRUCTION, ROMSLK PC=S304 
2619 026574 103400 100C00!<400#7> ; JUMP TO’ROM PC OF O 
2620 026576 737 026750 JSR PC, ROMDAT ;RS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2621 Oe6602 000010 10 X 
2622 O26604 d20S04 CMP RS,R4Y ‘ARE NEW PC CONTENTS CORRECT? 
2623 Oe6606 001401 BEQ 4$ F YES 
2624 026610 104006 HLT 6 ERROR CRON Pc IS WRONG 
2525 Oebble 10440! 4$: SCOP1 LOOP to 3s F SWOS=1 
2626 026614 012737 Oeb622 001220 MOV #5$, LOCK NEW W SC Sp 
2627 Oebb22 S$: 
2628 Oebb22 004737 O2b656 JSR PC, CLRALL :CLEAR ALL CONDITIONS 
2629 Oe6626 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2630 Oe6632 100406 10040 :START AT ROM PC=6 
2631 Qeb632 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2632 026634 107525 104125! <400#7> : JUMP TO ROM PC OF 
2633 : 004737 026750 JSR PC, ROMDAT tRS=EXPECTED ROM DATA,RY=ACTUAL ROM DATA 
2634 Oebb42 OO0016 16 X 
2635 Oebb44 O20S04 CMP RS,R4 ARE NEW ROM PC CONTENTS CORRECT? 
2636 02654 001401 BEG 6$ -BR IF 
2637 Oeh6SO 104006 HLT 6 : ERROR ‘Chon Pc 1s WRONG 
2638 020652 104401 6S: SCOP! :LOOP to S$ IF SwW59= 
26335 026654 104400 SCOPE ‘SCOPE THIS TEST 
40 00300 
2641 00400 
2 0 SUBROUTINES 
2643 00600 ;----------- 
90700 
2645 O2665E 00800  CLRALL: 
obit 90300 s THIS SUBROUTINE CLEARS THE C38Z BITS AND THE BR 
026656 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2649 026660 900400 01200 000460 :BReO . 
2650 Oebbbe 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5204 
2651 O26664 063220 01400 063220 :SP(0)+BR : 2 
2652 Oeb666 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=530% 
2653 026670 S60400 01600 og0400 : BReSP(0)+BR 
2654 O26672 000207 01700 RTS PC 
2655 01800 
PSE 01900 
2657 026674 02000  SETBRO: 
cree Bs 408 : THIS SUBROUTINE SETS BRO BIT 
2660 026674 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2661 Oeb676 00040) 92400 000401 :BReOO! 
ebbe 026700 900207 02500 RIS 
SeE4 aa 
2665 O2E702 02800  SETBRI: 
2 02990 : THIS SUBROUTINE SETS BRL BIT 
2bk7 03000 


eb6e O2670e 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 


DZONG 


DIONG. P11 


MACY11 30( 1046) 
22- -APR-77 ¢ 


026704 
026706 


o0040e 
000207 


104414 
000420 
00029” 


L1-JUL-77 


09:29 


ooocod 
000092 
002090 
Ole3ee 
OCO00e 


0163ee 
000006 


00137e 


le:1ll 


PAGE SY 


SUBROUTINES 


SETBRY: 


SETBR?: 


SETC: 


SET2: 


ROMDAT : 


1$: 


COS 


PAGE: 
o0040e ;BR+O02 
RTS PC 
;THIS SUBROUTINE SETS BRY BIT 
ROMCLK :;NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
pooved pc ;BR+020 


;THIS SUBROUTINE SETS 8R7 BIT 


ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
—— pc ;BRe200 


;THIS SUBROUTINE SETS THE C BIT 


ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
000777 :BRe377 

ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
063220 :SP(O)« 

ROMCLK !NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
fated pc :BReSP(0)+BR 


;THIS SUBROUTINE SETS THE Z BIT 


ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK ©C=S304 
000777 : BRe377 

RTS PC 

: THIS SUBROUTINE LOADS RS WITH EXPECTED ROM CONTENTS 
AND LOADS R4 WITH ACTUAL ROM CONTENTS 

MOV a(SP),RO ; INDEX FOR COMPARE 

ADD #2, (SP) :ADJUST STACK 
MOV #6{T10, (RL) :SET ROMO 
MOV LOMAP(RO).RS | :PUT EXPECTED IN RS (LOSPEED) 
IT ag1T1, STATS ‘LOW OR HIGH SPEED? 

EQ 1 :BR IF LOW SPEE 
MOV HIMAP(RO),.RS § :PUT EXPECTED IN RS (HISPEED) 
Hoy (RL) RY : PUT =F OUND” IN RY 


:THIS SUBROUTINE CHECKS THE STATUS TABLE AND LORDS 


026: 


DOS 


L1-JUL-77 12:11 PAGE SS PAGE: C262 
09:29 SUBROUTINES 
08800 ; THE ROMMAP POINTER TO POINT TO EITHER THE HIGH OR 
08900 LOW SPEED MICRO-CODE. 
012322 012320 eta MOV #LOMAP,ROMMAP  ;LOAD POINTER TO LOW SPEED 
o00002 001372 09200 git 88171, STAT3 ‘CHECK STATUS TABLE 
09300 BEQ 1 ‘BR IF LOW SPEED 
016322 212320 O9400 MOV BHIMAP , ROMMAP i LORD POINTER TO HIGH SPEED 
o9s00 «1S RTS PC : RETURN 
09600 
00300 
o4oS22 020115 OO4YO0 EMI: .ASCIZ <377>/CRAM DATA ERROR/ 
051103 046501 OOSO0 Ene: "ASCIZ. <377>/CRAM DUAL ADDRESSING ERROR 
051! S17 M3: ASCE 372 > “CRON DAT TA ERROR/ 
O46 l M4: "aSCI? =< 377> RROR/ 
l 2440 MS: "ASCI2 <377>/00T ERROR IN IBUS# REGIO/ 
112 440 EM?: -ASCIZ (377)/10P MAR TEST/ 
020122 O44S22 $1000 ENO: -ASCI (322) 7 RIGHT SHIFT alee’ 
STE OTeeTe Oe ee aoe Te BREE RUNNING. ERROR” 
052116 91300 EM13:  .ASCIZ (377) “CONTROL OUT ERROR” 
041505 O1SO0 OHI: -ASCI2. <377>/EXPECTED FOUND ADDRESS 
050130 041505 01600 Oke: "ASCIZ (322) /EXPECTED FOUND / 
051440 046105 01700 OH3: "ASCI2. 6377" SELY SELE/ 
01800  .EVEN 
91900 
O71 3 
904 02100 “BYTE 6,4 
02200 SAVRe 
904 02300 “BYTE 6,4 
02400 SAVRY 
p02 92500 "BYTE 4.2 
"4 SAVRO 
OTe: 3 
004 92890 -BYT 
02900 SARS 
04 93000 "BYTE 6.4 
3100 SAVRY 
02 3200 BYTE 2 
3 SARE 
03400 OT3: 3 
904 02500 “BYTE 6,4 
0 SAVRS 
004 53708 _BYT 6.4 
SAVRY 
G2 93909 BYTE 4,2 
04000 TEMP3 
007 ead DT: ‘ a7 
54500 sBVRe 
002 04400 BYTE 3.2 
04509 SAVES 
A 4600 OTs 2 i 
Bue05 BYE 


EQS 
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DZOMG.P11 22-APR-77 09:29 SUBROUTINES 


Receag BB AGGS Rere8 oorre, «= 


0275% 003 O10 05200 .BYTE 3,10 
027540 o0le72 05300 SAVRS 
Oe7542 003 004 05400 “BYTE = 3,4 
oe7544 001270 05500 SAVRY 
oe754%% 004 = ode 05600 “BYTE 4,2 
027550 001264 05700 Save 
027552 000003 05800 0710: 3 
ge7554 003 007 05300 “BYTE 3,7 
02755 01272 06000 SAVRS 
027560 003 004 06100 “BYTE 3,4 
027562 001270 06200 SAVRY 
027564 006 o02 06300 “BYTE 6,2 
p01252 06400 TEMPS 
027570 000002 06500 OTlI: 2 
g27572 006 «2Ss(OH 06600 “BYTE 6,4 
027574 001252 06700 TEMPS 
ge7576 = 00 StiéP 06800 BYTE 6,2 
027600 001254 96900 TEMPY 
p27602 07100 . ERRTAB 
7692 900000 07e 
027604 900000 07300 0 
000000 07400 
027610 027040 07500 EMI 
De7ble Oe7342 07600 OHI HT 1 
727614 027436 07700 O71 
027616 027061 07800 Me 
7620 027342 07900 DHi ;HT 2 
027622 027436 08000 71 
7624 027040 08100 EMI 
Oe7626 027342 OO OHi ;MT 3 
027630 027454 08300 OTe 
02763 27115 oa400 EMS 
027342 08500 HLT 4 
027636 027472 98600 073 
027640 027136 08700 EMY 
Q27642 027374 00 HLT = 5 
027510 08900 OT4 
027136 09000 £ 
027650 027374 09100 DH HLT ob 
09200 OTS 
aa ‘ 
027660 027510 09500 O74 
000000 09%00 0 
027664 900000 09700 0 
000000 09800 0 
027670 027204 09900 EN? | 
027342 10000 DHL «= ;MuT) «sd 
027674 027534 10100 DT 
027676 Oe7eee 10200 EMO 
027700 027374 10300 HLT 12 
02770e 027510 10400 DTS 
527704 027247 10500 M11 


DIDOMG = =MACY11 wt} L1-JUL-77 12:11 PAGE S7 


DZOMG. P11 22-APR-77 09:29 SUBROUTINES 
027706 Oe734e 10600 DH! ;HLT 
027710 Oe7SSe 10700 0710 
027712 Qe7e7 10800 EMle 


0300 sHLT 
98 
11 
lle DH2 ;HLT 
113 S 
114 
927730 Reet 11500 ODH3 ;HLT 
ll. 
118 
119 
124 


OG CORMAX: 
.END 


wee 


GOS 
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DZDMG.P11 § 22-APR-77 09:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
ADRCNT= 004373 979% 915% 9248 
AUDONE 003024 ces 608 613 6598 
AUSTRT 002446 S688 663 
AUTO.S 010512 S26 13688 
BINWRD OO4714 365* 968% 69 10068 
BITO = 000001 gSe 1155 1156 a 
8IT1 = 900002 948 8§=—- S31 1149 1155 1156 1443 1532 
BITIO = 002000 8Se 1513 1524 1716 1816 e715 
BIT11 = 004000 848 
BITle = 010000 838 1464 1543 
8IT13 = 020000 828 1467 1516 1S47 1719 
BIT14 = 040000 Sis 781 1478 1480 1547 1558 
BITIS = 100009 808 485 572 575 596 599 1451 
2022 «2079ti‘iw13H™ei“‘éi‘iéilzdl93«#«OCPPS0 623082 23888 
BIT2 = OOO004 938 ~=S «S331 712 1156 
B8IT3 = 000010 S28 ©1549 1556 
81T4 = 000020 3i8 1139 1162 1164 
Site = Spoioe gos thoy uNSsISSI 
BIT? = 900200 888 1145 1265 1661 
BITB = 000400 878 1523 1538 1540 1553 15ss 1561 
BITS = 001000 868 1521 1523 1535 1561 1564 1620 
QM 007054 11878 1492 
BRLVL Oleese 1617 1627 1635 16478 
OR 003730 718 S048 
SFX 0023732 719 g0S8 
CHRCNT OO4712 3%  %6 970 ge6# 10048 1005 
cKSWR 00 Sle 77? 811 1026 lel2s 
oKSWR1 12258 1237 
CKSWRe 007700 12288 
CKSWR3 007704 12308 
CKSWRY 10 12318 1239 1246 
CKSWRS 010014 1213 1220 12558 
CLKY. 001242 1718 
CLRALL 1858 1871 1984 2312 2325 2338 2370 
2489s eSl2—C—(‘éaSHHOCSS? S700 D2 Ss EIS 
CNERR 007277 626 11878 
ENVAY = 1OMIT i 6 OORCHE Ect 
w = é e wd 
CONE: ape 621 11878 
C 007114 11878 i469 
CONTAB 002776 630 6438 
CONVRT= 104410 2318 543 629 1076 1331 
CORMAX 0277 27348 
CRAM 11878 1430 
CREAM 001320 195s 482* 1289* 1290 1292 12% 
CSR 006510 11878 1395 
EPL b1Oseo oe 761 "te 1280 
d Us 
pa TBP 00521 1049# 1052 1074 10778 
TACL= 10441 e41s 
DATAHD o0S2 1048# 1070 10738 
ieee” Goa oa we 
\ 77# 1 a 
Eth 4378 593 ts 
oe 027242 27348 


1S4S 


18S4 191} 
2s9e 
2441 2454 


1965 
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DZOMG. P11 22-APR-77 09:29 CROSS REFERENCE TABLE -- USER SYMBOLS 


3 OM 
¢ ( 
pi ae.e Obi206 1428 498% SO4s 735% 
, T ate TH 20) 676 677 1280 234 13764 
Vv 7b 77 I 
Bach Be398 eso" Bb 
ia 001500 2738 
RO1 001510 4=it | 
DMCRO2 001520 2898 
001530 23a 
DMCROY 001540 2998 
ROS 001550 3048 
DMCRO& 001560 309% 
RO? 001570 14a 
CR10 Bt poe 138 
DMCR11 O0161 3248 
DMCRie 001620 3c98 
R13 001630 3348 
DMCR14 O01640 339% 
DOMCR1S 001650 3448 
DOMCR1E6 001660 3498 
DMCR17 001670 3548 - - . 
DMCSR 001404 sere Ay 602 607% 612s 647 765 
DMCSRH 001406 Je L144 114S*® L149e 8 1iSS# 1156# 1162s 
DOMCTL OQOO01410 2648 1309% 1310% 1311 
OMNUM 001310 1908 479 7S1 1374* 1389* 1568 1569 
DMPOY O014ile 26Se 1133% 1139 1176 1181 1311# 13128 
DMPOG pete cent 11598 13138 8. 
Buevec BoLa74 seg, 348" 134g [300s 1316 
OmS100 001502 2808 
OmMS101 O01Sle eess 
OmMS102 001S22 23908 
Peis les se 
Be 1 Oe ate see 
OmMS106 001562 2108 
OmSi07 001572 3158 
OmMS110 001692 3208 
OMS111 OO0l6l2 3258 
OmMSile O0l62e2 3308 
OMS113 001632 3358 
114 164 3408 
115 1 sine 
118 1 Os 
ll lb 355s 
001504 cfls 
OmS201 OO01514 28b8 
001524 2318 
OmS203 001534 estes 
001544 3018 
OMSe05 Obiees aye 
i? a 
Bus? Dole gies 
OmSel6 00604 3218 


1S77# 


802 
L1é4# 


1$78 
1313 


1$83#  1S84# 


1094 1117 
1307#  1308# 
1580 


1588 


1163 
1303 


1633 


PRGE: 


0266 


I05 
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DZOMG.P11 © 22-APR-77 09:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
DMS211 001614 3268 
Dnsele vibes 3318 
OMS213 001634 3368 
ONS2!4 001644 3418 
briseis 01654 3468 
18 OO1B6s 351 
ONS217 001674 3568 
ONS300 001506 2828 
ONS301 001516 2878 
OMS302 001526 2928 
ONS303 001536 2978 
Breaos O0lese 09 
' 1556 3078 
OMS306 001556 3128 
OS307 001576 3178 
DMS310 001606 3228 
OMS311 OO1616 3278 
ONS312 001626 332 
OMS313 001636 3378 
OMS314 OO1646 3428 
OMS315 OO1655 3478 
DMS316 001666 3528 
OMS317 001676 3578 
OMTLYL 001402 2618 1320 1321# 
OMTVEC 901400 2608 1319% 1319* 1320 
On RAP 01500 foe eee e328 siSMGSCié«éSCi«dRGSC«CdGS«1370 
SOME 03734 795s 76H = BOBS 
oT] 027436 27348 
S710 ©: Oe 7552 27348 
Ov11 27570 27348 
Rts 027454 27348 
TS 3=s-_-: Oe 7472 e7a4e 
O74 = 027510 27348 
TS Oe752e 27348 
17 27348 
EM! 2734s 
emio.  De7eee 27348 
Emi] 27248 
Emile 027273 27248 
EM!3. = 027317 27348 
EMe 1 27348 
me Bie ER 
MS 188 27348 
EM? 7204 27348 
ERCTOO 001704 3668 
ERCTOl 001710 3638 
ERCTO2 001714 3728 
ERCTO3 001720 3758 
ERCTOY 001724 3788 
ERCTOS 9017 3618 
ERCT 17 3648 
ERCT 1740 3878 
ERCTIO O01744 2908 
ERCT1 01750 3938 


1375 


1605 


PAGE: 


t=. 


os 


vet: 


JQ5 
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DZOMG.P11 22-APR-77 09:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
ERCT12 001754 3968 
Ri Tt 001760 3998 


a: 


ie 002700 Sos g1ge 622 ners : 
ERRENZ BB1S3e Apt Gaia | 554e REE 18992) oso toes 11238 
ERRMSG 005172 1047% 1065S 10688 
002770 624 6408 
ERTABO 005322 1062 10978 
EXITER 1088" 10878 
P, ¢ 
L tt 
FY rT} 609 615 
HALTS O0S22e 1033 10798 
HILIM QO4366 876% S218 
nr. 016322 srs fh eral 
as 8 
{ BaPeAS gees 
INCHAR 010020 1231 12598 
INIFLG 001324 2018 527 S34* 
NSTER= 104404 2238 897 
NSTR = 2el# i329 1381 1394 1403 1482 1491 
NSTR2 166 853 6Se 2 
INTTY O12266 1414 1431 1441 14S4 1470 16558 
KMCM 007330 637 11878 
LIMITS 004314 892 3038 
LaBTTS Spas ie a 3238 324 
é 
LOCK Boi 220 1S88 7% os Blo 1801% 1851# 1869% 18828 1908# 1925+ 
1980# 1993 2019 20378 2050 20768 2094# 2107 21338 2151# 2ib4# 
P22l# 2247# 2265* 2278% 2305* 2323# 2336# 2363# 2381% 2394# 24e1* 
2479% 2497% 25108 25378 2cSS*# eS68* 2e595* cbl3*  2626# 
LOKFLG 001326 2038 
LOLIM 75% gos 0 
le322 16678 2716 2728 
LPCNT 1608 792% 793 736% 
LSTERR 001234 1648 490% 732% 1034 1036# 1124 “ 
027012 1711 1806 1856 1913 1967 2024 2081 2138 2195 2252 2319 
2484 2S4e 2600 27238 
NAeTeK DOeI42 bce 11878 
00567 2! 1054 1055 1063 11878 1328 1390 
00607 37 11878 
TA am ues 1204s 
MEMLIM 1304 1888 700% 
S 905733 7 11878 
mer fee, MOLLE 
eae 11878 590 
MERRS O06005 £73 11878 
MILK 001322 1368 4o4e 74S 1286+ 1293# 1297 
MLOCK O06043 714 11878 


PAGE: 0268 


2426 


2DNG _ MACY11 30( 
BEEN. PLT BosaPRe 


< l 

MODU 006704 

MPASSX 006106 

non 0056 
SET= 


00130e 


ob Ob be be be fe be pe be ee 


g 
SBSB8S8S8ESS88ss888 
RINE REAR OTE 


PUSH2S= 46 
y. she TE ey 
He 


RECTAR 
mi EY 
214 


+ _ “77 le:ll 
CROSS 
11878 1453 
741 11878 
llel 11878 
1878 eta 
: 11878 134 
ag i ER 
Mee ETT 
0s9 11878 1330 
11878 us? 
7 4 
1 3, 486 10932 
2189%  e2246% 2304% 
S23 11878 1282 
577 6168 
11878 382 
603 6108 639 
1878 
3658 
3688 
3718 
3748 
3778 
2808 
=e 
8 
388 
2928 
3958 
3988 
4018 
4048 
4078 
4108 
2cS*# 1331 1383 
B8ls 898 
968 
884 886 gee 
1628 734% 735 
368 
ll2e 11288 
7e8 1086 
708 
748 801 
11878 1413 
38 476% 711s 
le 1083 
638 
728 
204s 482% 7S0+# 
075 10788 
1108 1114e 
749 7 7618 
2238 10 
1S&ée8 4928 7204 


KOS 
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1427 1437 1447 


i739 1803 1883 
2481 2539 2597 


1686# 1709 1736# 
35638 2420%  2478% 


i336 1405 1484 


897% 904 906 
746 771 1304# 


1617# 1627% 


790 


724 7éle 7994 


1462 


1910 


1800# 
2536% 


1493 


908 


8C3 


147& 


1964 


1850% 
2594s 


1092+ 


2021 2078 2i3s 


1907# i961# 20184 


1095 Lig? 13450 


1355# 


1357 
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DZOMG  MACY11 30(1046) 
DZONG. P21 22-APR-77 09:29 
ROMCLK= 104414 zone 
1 
es 
2110 
st 
l 
5 (8? 
16 
2696 
ROMDAT 026750 197 
2343 
at! 
ROMMAP 012320 16658 
ROMNUM Oe2360 688 
ROM1 022362 1690 
RUN 001316 1938 
SAVACT OOi31e 1918 
SAVNUM 001314 1928 
SAVPC 001276 1858 
SAVRO 001260 1788 
SAVR1 O01262 1798 
001264 1808 
SAVR3 001266 1818 
SAVRY 001270 1828 
SAVRS O0le7e 1838 
SAVSP 001274 1848 
VOS = 104406 2278 
SCOPE = 104400 el5s 
SCOP1 = 104401 at 
= t 
ii 
232 
SETBRO 026674 53B 
SETBR1 026702 2140 
me ee Be 
TC BSE 72M 1969 
| SETZ 026742 2026 
SKIP $73 
SOFTSW Ol 1229 
| SPACNT= 004713 964% 
SPEED 007340 11878 
STACK = 001200 b48 
TAT O01240 1708 
TATL O01 esis 
2366 
STATe 001370 eSes 
STAT3 001372 e538 
STRTSW 001236 Ds ty 
svOS_ 04402 9338 
SWFLG 010016 480# 
SWMES 007205 11878 
SWMES1 007215 11878 


224s 


12514 


1179 


LOS 


1744 


1911 


1949 


Ave 


2438 


2006 


d3o8 


2451 


2022 


666 


2063 


424 


2464 


2120 


3% 


2496 


2177 


Ba 


2509 


2193 


1323 


2234 


339 
eS22 


PAGE: 


2291 


$334 


2554 


2308 


1377 


0270 


DZDNG MACY11 30( 1046) 


DZDMG.P11 22-APR-77 09:29 


Sw 001202 
SWREG 000176 
SWOO = 000001 
SWOl = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4Y = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
Swoe = 000400 
SWOS = 001000 
SW1O0 = 
SWl11 = 004000 
SWl2 = 010000 
SW13 = 020000 
SW14 = OY 
SWwiS =1 
TEMP 001416 
TEMP1 001 
TEMPe 001250 
TEMP3 O012Se2 
TEMPY 001254 
TE 001 
TIMER = 104416 
TKCSR 001204 
001206 


TSTNO § 001226 
TSTl 022322 
TST10 
TST11 OQe4326 
TSTle 


TST16 OeSS0e 
TST17 O2eS676 
TSTe 022760 
Ste0 026072 
TST2l  OQ26e66 
TSTee Oeb4be 
TSTe3 = £eeeEE 
TST3 02 

TST4 023166 
TSTs 023362 
TST 023SS6 
Tee 023736 


TTST 002612 
TWOSYN= 010000 


ll-JUL-77 le:1ll PAGE & 
CRCSS REF 
1438 497% 499 S03# S13 
1081 1088 1090 1152 lele 
1298 503 lele 1270 
4S@ S17 1377 1601 
45 7el 1323 1347 
438 
42a 666 
41a 
408 
3398 1152 
388 
37@ =§©§©1088 
368 Ble 
358 1090 
348 788 
338 827 1027 
3e8 1032 
318 
308 
2718 971 1118 1119% 1160% 
1738 $37% 1189 1613# 1614* 
1748 S38 1131 
17S8 S40# S66* 618 627% 
1826% 2734 
1768 S4ix 1195 1399 1402 
arcs S42e 1197 1380% 1393% 
1488 sae 1214 1259 1655S 
1498 8S0 856 lel? 1219 
1350 26408 
1508 832 Soy 1029 1262 
athe 834% 856% 1031%  1264# 
8 
8 491% 2 130 334 
a 2017 OF 131% 1338 
1337 1355 16858 
1961 20178 
2018 20748 
2075 el3ls 
2132 21888 
2189 224S8 
-I-an] =) 23038 
2304 23618 
2362 24198 
1686 17088 
2420 24778 
2478 25358 
2536 2S938 2640 
25394 
1709 17358 
1736 17998 
1800 18498 
1850 19068 
907 19608 
fir 716% 718# 719# 7828 
ry 


MOS 


671 
1250% 


1165# 


1193 
1408 
1599 
1261 
1658 
1660# 


1341 
2245s 


S 
ERENCE TABLE -- USER SYMBOLS 


676 781 788 Ble 


1171% 1183% 


1386 1389 1SO1#  1821# 
1411 1487 1490 1496 


1657 


8S* i708%  1735% 
ble C419% 2477% 


FAGE: 0271 


827 1027 1032 


1823% 1824* 192S# 
1499 2734 


1799 1849 19064 
2535*  2593# 
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TYPDAT 005206 1053 1071 10748 

TYPE = 104402 2198 $11 Se3 S35 620 62S 633 
737 739 fe 743 844 61 
1061 1063 106 1072 liel 1e27 1230 
1426 1429 1436 1439 1446 1452 1461 


TYPMSG 005106 0S1 10S4s 
VEC 006526 11878 1404 
VECMAP 012010 589 16018 
WHICH Q1200e 1s 15978 
WROCNT 004710 9628 * 10038 
WRKO.F 005174 1066 10698 
XBX 005000 1028 1030 10328 
XCSR 003546 738 7638 
003570 744 7728 
XHEAD OQ06224 535 11878 
XLOC 003022 S93# 611% 614 eae 6588 
OCs 742 7698 
XSTATQ O074S4 on) 11878 
XTSTN 1060 11008 
XVEC 003S5S4 740 7668 
ZERO 300 1868 
COD = ##eee8 U 
CRAP = 177777 ls 16738 1676 16818 16948 1697 17048 
18388 16841 184Se i8968 1899 19028 19508 
20708 e2l2ls 4 21278 21788 2181 
ec39e 8623508 82353 23578 24088 2411 24158 
eS8e8 2585 25898 
SENDAD 003522 123 793 75S# 1079 
$N = 00002e le 1673 1681 1683 16888 1694 1704 
17398 3=617 795 1797 1 18048 1838 
191 19l11@ 1950 6 1958 1964 
2064 2070 2072 2078 20798 = 2le21 2127 
’ 2192 21938 2235 2c4) 2c49 eeS0s 
2357 s9 2365 23668 1S 2417 
24828 2524 2531 2$33 2539 eS408 e2S8e 
$s = 000024 le 1686 16888 1709 17ll@ 1736 17398 
a 19658 2019 20228 2075 20798 8=el32 
¥ 23088 3 23668 2420 2424s 47 24828 
+ = 000017 le 2078 21s 2178 2198 2218 2238 
2378 2398 e4le 2438 2e4ss 
= 027734 1088 109 lles 1198 1248 1278 1318 
2728 2778 2798 2808 2gle e8es ese 
23e8 ee 29Ss 2368 2978 e393 3008 
3098 3108 3118 3les 3148 3158 3168 
3258 3268 3278 3298 3308 3318 3328 
418 see 3448 3458 3468 34? 3498 
ee ee oe 
BEGIN 003152 6908 
CNVRT 004472 533 a8 
8 
DATAC o0ssSe 242 11598 
DELAY O0S436 11328 
003364 7318 94 
ERRTA 027602 6 e7348 


17318 
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